open( FH, "file_name" ) or die $!;
@lines = <FH>;
$num_of_lines = @lines;
print "NUm of lines : $num_of_lines\n";