while (<FH>) {}
print $.;