Select Code to Download

    $lines = 0;
    open(FILE, $filename) or die "Can't open `$filename': $!";
...
    $lines += ($buffer =~ tr/\n//);
    }
    close FILE;

open(X,filename);
while(<X>;){}
$lines = $.;