Select Code to Download

while (<FILE>) {   ## (note: using logical indenting)
   if ($found) {
...
   }
   elsif ...
}

$found = 0;
while (<FILE>) {
...
      $found = 1;
   }
}