You can use the $. variable ($/ defaults to \n)

while(<>){};
print "$. lines\n";
[download]