perl -e "$n=5; for(1..$n) { print }"