perl -MO=Deparse -e"for(;;){}"
while (1) {
    ();
}
-e syntax OK