If you're looking for a way to find the "newest" file, without looking at all the files (or at least, their metadata), there isn't.

You could do something like (untested):

use File::Spec;
my  %cache;
foreach my $file (`find d:\\Teszt -type f`) {
    my $age = -M $file;
    my ($vol, $dir, $name) = File::Spec->splitpath($file);
    if (exists $cache{$vol, $dir}) {
        next if $age > $cache{$vol,$dir}[1];
    }
    $cache{$vol,$dir} = [$file, $age];
}
foreach my $newest_file_in_directory (map {$$_[0]} values %cache) {
    ... process file ...
}
[download]

I'm using `find` because I've never had a need to learn the File::Find syntax.