use strict;
use warnings;
use File::DirList;

my $dir = '.';
my $newestFile = File::DirList::list( $dir, 'M' )->[0]->[13];
print $newestFile;