$. = 0;
    seek $fh, 0, 0
        or  die "Can't rewind handle to $file: $!\n";

##</code><code>##

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