Select Code to Download

while(<INPUT>) {
  $linecount++ ; 
  next if $linecount <= $numHeaders;
  # ...
}

<INPUT> for 1..$numHeaders;