my $count = do { () = <$fh>; $. };