perl -e 'while(1){print for 1..5 }'