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