sub funktion_in_modul {
    print "error";
    die "error";
}

eval {
    funktion_in_modul();
    1;
} or do {
    print "Es trat ein Fehler auf: $@";

    # Oder einfacher:
    warn;  # Ohne Argumente, gibt "error caught at ..." aus.
};