find . -mindepth 1 -maxdepth 1 -printf '%T@ %p\n' | sort -nr | head -1 | sed 's/^[^ ]* //'

ls -t | head -1

my $dir = "verzeichnis";

my $latest = (
    map{
        $_->[0]
    }
    sort{
        $a->[1] <=> $b->[1]
    }
    map{
        [$_, -M $_]
    }
    grep {
        -f $_
    }
    glob(
         $dir."*"))[0];
    
print $latest;

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

my $dir = '/home/harald';

my ($newest_file, $newest_date);
for my $entry (glob "$dir/*") {
    next unless -f $entry;
    if (!defined $newest_date || -M $entry < $newest_date) {
        $newest_date = -M $entry;
        $newest_file = $entry;
    }
}
if (defined $newest_file) {
    print "Newest: $newest_file\n";
} else {
    print "No files found";
}

find . -mindepth 1 -maxdepth 1 -printf '%T@ %p\n' | sort -nr | head -1 | sed 's/^[^ ]* //'

ls -t | head -1