sub test_new {
  my ($mydir) = @_;
  my $new_one = 0;
  opendir(DIR, $mydir) or die("...");
  while (my $file = readdir(DIR)) {
    if ($file !~ /^\.+$/ && -M $mydir . '/' . $file < 0.5) {
      $new_one = 1;
      last;
    }
  }
  closedir(DIR);
  return $new_one;
}