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

<script src="http://gist.github.com/177313.js"></script>