my $old_mtime = (stat($file))[9];
if (time <= $old_mtime + 300) {
  while (1) {
      sleep 300;
      my $new_mtime=(stat($file))[9];
      last if $old_mtime == $new_mtime;
      $old_mtime = $new_mtime;
  }
}