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

This is my scratchpad. Please scratch here.