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