perl -e '1 while 1'