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