sub AUTOLOAD{
    my $self = shift;
    # Name der Methode ermitteln
    my $mname = do{
        our $AUTOLOAD =~ /(\w+)$/;
        $1;
    };
    require "auto/$mname.pm";     # wirft Exception, wenn es die Datei nicht gibt
    my $code = $self->can($mname) || die "Die Methode '$mname' ist nicht definiert in Modul 'auto/$mname.pm'";
    $self->$code(@_);
}

sub DESTROY{}