Help for this page
Select Code to Download
Select
or
download this
$ perl561 -MO=Deparse -e 'while(1) {1}' for (;;) { '???'; }