my $dir = 'verzeichnis';

opendir DIR, $dir or die $!;
my $latest = (
    map{
        $_->[0]
    }
    sort{
        $a->[1] <=> $b->[1]
    }
    map{
        [$_, -M $_]
    }
    grep{
        -f $_
    }readdir DIR )[0];