Select Code to Download

while () { ... }

while (1) { ... }

$ perl -MO=Deparse -e 'while () {print "tick!\n"}'
while (1) {
    print "tick!\n";
}

$ perl561 -MO=Deparse -e 'while () {print "tick!\n"}'
for (;;) {
    print "tick!\n";
}