$line_count = `wc -l $filename`

##</code><code>##

    sub lines_in_file {
        my $f = shift;
        open FH, $f or die "Can't open $f: $!";
        1 while <FH>;
        $.;
    }

##</code><code>##

    my $line_count = lines_in_file($filename);