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