opendir DH, $dir or die "Cannot opendir '$dir' $!";

my @filelist = readdir DH;

my @sorted = sort by_last_mod @filelist;

sub by_last_mod {
    my $adate = ( stat "$dir/$a" )[ 9 ];
    my $bdate = ( stat "$dir/$b" )[ 9 ];
    return $adate <=> $bdate;
    }