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