@lines could get rather large depending on the size of the file; how about

open(FILE, "filename") or die "couldn't open filename: $!"; # check re
+turn status of system calls!
for ($count = 0; <FILE>; $count++) {}
[download]

Josh