perl -e 'for(;;) { }'