Instead of the FAQ's rather verbose loop, you can achieve the same effect using

{
    local ($/, $_) = (\4096);
    $lines += tr/\n// while <$fh>;
}
[download]

Makeshifts last the longest.