Select Code to Download

while (1) {
    local $| = 1;
...
    elsif ($answer eq "end") {last;}
    else {print "Unknown command '$answer'\n"}
}