Select Code to Download

OUTER: for (;;) {
  while (<FH>) {
...
  }
  # stuff
}

for (my $done = 0; !$done;) {
  while (<FH>) {
...
  }
  # stuff
}