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