Help for this page

Select Code to Download

Select or download this

sub line_count {
   my ($fname) = @_;
...
   1 while <$fh>;
   return $.;
}