There is more than one way ...
:)

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

YOu may do it this way tooo...