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