opendir LSLRT, "$dir" or die "I hate you, $dir: $!";
my @files = (map { $_->[0] }
                 sort { $a->[1] <=> $b->[1] }
                 map { ( -f and /^F/ )
                      ? [$_, (lstat $_)[9] ] 
                       : () }
                 readdir LSLRT);
closedir LSLRT;
@files = @files[0..($#files > 3 ? 4 : $#files)];