my $lines; ++$lines while <$file>;