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

use autodie; # Perl core Modul
use Try::Tiny;

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

sub unterprog {
    try {
        # Nun kann man auch selbst Fehlerereignisse auslösen:
        $ARGV[0]  or  die "Nur wahre Argumente, bitte!";
        # 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');
        # bitte nicht auf das Beispiel antworten,
        # das ist wie vesagt nur ein BEISPIEL
    }

    # hier möchte ich eine Art Handler platzieren:
    catch {
        # hier passiert noch mehr
        return $_;
    };
}