http://www.perlmonks.org?node_id=519628
Related Q&A and Code