perl -e 'while(1){for $i (1..5) {print "$i\n"}}'