#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

my $test = unterprog();
say "Erg.: ".(defined $test ? $test : '');

sub unterprog {
    my $back = 0;

# hier möchte ich eine Art Handler platzieren:
    handler_variable ($back ne '0') {
        # hier passiert noch mehr
        return $back;
    }

# hier folgt jetzt viel Code
# und bei jedem Kommando kann es zu Fehlern kommen
# und immer wenn das passiert soll quasi ein return
# ausgeführt werden
# z. B.:
    unlink('diese_datei_gibt_es_aber_nicht') or $back = "$! in ".__LINE__;
# bitte nicht auf das Beispiel antworten,
# das ist wie vesagt nur ein BEISPIEL

# um das selbe Ergebnis ohne den Handler
# zu erreichen müsste ich schreiben:
    unlink('diese_datei_gibt_es_aber_nicht')
    or do {
        $back = "$! in ".__LINE__;
        # wir nehmen an, dass hier mehr passiert
        # als nur diese Zuweisung
        return $back;
    };

    return "Ende erreicht mit \$back='$back'";
}