perl -e 'while(1){XXXXXXXXXXXXXXXXXXXXXXXXX}'