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

This section is now closed for posting code. Please use Cool Uses For Perl instead.