sub newestDate {
  my $path = shift;
  opendir(my $DH, $path);
  return(
    (map {$_->[0]} 
     sort {$a->[1] <=> $b->[1]}
     map{[$_, -M "$path/$_"]} 
     readdir $DH
    )[0]);
}