in reply to Re: Count file lines in a directory tree
in thread Count file lines in a directory tree

{
    local $/ = \131072;
    $lines += tr/\n// while <inFile>;
    $lines++ if not /\n\z/;
}

[download]

Makeshifts last the longest.

In Section Cool Uses for Perl