sub countLines {
    my $filename = shift;
    open my $fh, '<', $filename
        or croak("failed to open '$filename' - $!");
    my $count = 0;
    $count ++ while <$fh>
    return $count:
}