http://www.perlmonks.org?node_id=55234

eval 'use less "memory"' while 1;

 

You need version 5.6 (and not ActiveState) to truly enjoy this poem... Inspired here :)