sub line_count {
   my ($fname) = @_;
   open(my $pipe, '-|', 'cat', $fname)
      or die("Unable to launch cat: $!\n");
   1 while <$pipe>;
   return $.;
}