perl -e 'while (1) { push @stuff, "all work and no play makes arturo a dull boy" }'