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