Select Code to Download

    $line_count = `wc -l $filename`

    sub lines_in_file {
        my $f = shift;
...
        1 while <FH>;
        $.;
    }

    my $line_count = lines_in_file($filename);