while (1) {
      $mtime=(stat($data_file . $$))[9];
      # drop out of the loop if the file hasn't
      # changed in 5 minutes (perhaps longer
      # for a wan connection ?)
      last if (time > $mtime + 300);
  }