$ ./perl -e 'while (1) {my *foo}'