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