perl -MO=Bytecode,-H,-ofor_loop    -e 'for (;;) {}'
perl -MO=Bytecode,-H,-owhile_loop  -e 'while () {}'
perl -MO=Bytecode,-H,-owhile1_loop -e 'while (1) {}'