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