$number_lines = 0; open(FILEHANDLE, "file.txt") or die "Can not open file.txt"; while (<FILEHANDLE>) { ++$number_lines; } close FILEHANDLE; print "The number of lines in file.txt = $number_lines.";