Select Code to Download

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

opendir(DIR, '.') or die "Can't opendir '.': $!\n";
my @files = readdir(DIR);
closedir(DIR);
...
         map { /^\./ ? () : [ $_, (lstat $_)[9] ] }
         @files;
@files = @files[0..4];