perl -e "until (0) { print "a\n" }