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

This is my scratchpad.