$ perl561 -MO=Deparse -e 'while(1) {1}'
for (;;) {
    '???';
}