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