use Path::Class;

my @files =
    sort { $b->stat->mtime <=> $a->stat->mtime }
    map  { file($_)                }
    grep { $_ ne '.' && $_ ne '..' }
    dir->open->read;

say "Neuste Datei: $files[0]";