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