1 while <$file>; print $.;