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

This is my scratch pad.