Select Code to Download

do {
    ...
} while($condition)

while(1) {
    ...
    last unless $condition;
}

LOOP:
    ...
    goto LOOP if $condition;