Cookbook page 278-279.

open(FILE, "< $filename"); # use < for taint reasons
$count += tr/\n/\n/ while sysread(FILE, $_, 2 ** 16);
[download]

I hope this helps
---------------------------
Dr. Mark Ceulemans
Senior Consultant
IT Masters, Belgium