my @list = `dir *.log \/B \/OD`;
my $newest = $list[-1];
print "$newest\n";

##</code><code>##

my @files = sort { -M $a <=> -M $b } <*.log>;
my $newest = $files[-1];
print "$newest\n";