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

##</code><code>##

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