{ local $. = 0; do {} while ($. < $n && <$IN>); }
while (my $line = <$IN>) {
  ...
}