rob@development:/home/rob/workspace$ perl -e 'sub a { &a }; a' Out of memory!