Select Code to Download

foreach my $HANDLE (@HANDLES) {

...
      }

}

#!/usr/bin/perl

...

      }
}

uninteresting #1
uninteresting #2
...
PP_START
interesting #1
interesting #2

uninteresting #1
uninteresting #2
...
uninteresting #5
uninteresting #6
uninteresting #7

PP_START
interesting #1
...
interesting #2
interesting #3
PP_END