Select Code to Download

while (1) {
      $mtime=(stat($data_file . $$))[9];
...
      # for a wan connection ?)
      last if (time > $mtime + 300);
  }

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