Select Code to Download

my $count = do { my $i; $i++ while <$fh>; $i };

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