my @files = (`ls -1t`)[0..4];
chomp(@files);


##</code><code>##

opendir(DIR, '.') or die "Can't opendir '.': $!\n";
my @files = readdir(DIR);
closedir(DIR);

@files = map $_->[0],
         sort { $b->[1] <=> $a->[1] }
         map { /^\./ ? () : [ $_, (lstat $_)[9] ] }
         @files;
@files = @files[0..4];