Select Code to Download

my $line_id = 0;
LINE:
...
   # now parse the interesting part of the file
   ...
}

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