Select Code to Download

my $newest_time;
my @newest_files;
...
      return $file;
   }
}

my %times;
$times{$_} = (stat($file))[9]
   foreach @files;
@files = sort { $times{$b} <=> $times{$a} } @files;