Select Code to Download

sub countLines {
    my $filename = shift;
...
    $count ++ while <$fh>
    return $count:
}

sub countLines {
    my $filename = shift;
...
    $count += tr[\n][\n] while <$fh>;
    return $count:
}