sub getNewestFile {
   my $dir=shift;
   my @files=glob "$dir/*";
   my %mtimes;
   map { $mtimes{$_}=(stat $_)[9] } @files;
   @files=sort { $mtimes{$b}<=>$mtimes{$a} } keys %mtimes;
   $files[0];
}