Help for this page

Select Code to Download

Select or download this

sub numlines {
   my $file = shift @_;
...
   close FILE;
   return scalar @lines;
}