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