Select Code to Download

  my $dir="."; 
  my @files=(map { $_->[1] } 
             sort { $a->[0] <=> $b->[0] } 
             map { [ -M $_, $_ ] } 
             glob("$dir/*"))[0..9];

my $dir="."; 
my @files=(map { $_->[1] } 
...
           map { [ -M $_, $_ ] } 
           glob("$dir/*")); 
splice (@files,-10);