Select Code to Download

$ perl -Mstrict -Mwarnings -le '1 == 0 ? 1 : (for (1) { 1 })'
syntax error at -e line 1, near "(for "
Execution of -e aborted due to compilation errors.

$ perl -Mstrict -Mwarnings -le '1 == 0 ? 1 : (while (1) { 1 })'
syntax error at -e line 1, near "(while"
Execution of -e aborted due to compilation errors.