Select Code to Download

perl -le"goto loop; $x=0; if( $x ){  for(;;){ loop: print 'hi' } }"

>perl -le"goto loop; $x=0; if( $x ){  for(1){ loop: print 'hi' } }"
Can't "goto" into the middle of a foreach loop at -e line 1.

/* push wanted frames */

...
    }
    PL_op = oldop;
}