Select Code to Download

LOOP:
while(1) {
    last LOOP;
}

LOOP:
while(1) {
...
        last LOOP;
    }
}

THING:
for my $thing (@things) {
    redo THING;
}