Select Code to Download

$ perl -MO=Deparse -e 'while (0) {}'
;
...
    ();
}
-e syntax OK

$ perl -MO=Deparse -e 'for (;;) {}'
for (;;) {
...
    ();
}
-e syntax OK