my $count= do { 0 while <$fh>; $. };