{ my $eof = <$fh>; $. = 0; } seek...