Reading the file line-by-line is not going to be the most efficient way, esp. if the file is large. Instead you could read the file in blocks and count the newline characters

local $/=\102400;
while(<FILE>) { $count += tr/\n// }
[download]

This example reads in chunks of 100K.