`perl -e 'while(1){};'`; print "never see this text\n";