wc -l file ##

##

my $cnt;
open(FH,"file") or die "Damn. $!";
$cnt++ while ;
close FH;

##

##

while () {}
print $.;

##

##

open(FH,"calendar.cgi") or die "Damn. $!";
while () { $cnt++ if  !/^\s+?$/;}
close FH;