open (file.....)
while (<FILE>) {
   $. = 2; # $. holds the number of the last read line
   .....