Select Code to Download

  open T, '-|', 'tail', '-f', $file;
  while (<T>) {}

  seek FILE, 0, 1; # clear EOF condition
  while (<FILE>) {}