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

This section is obsolete. To post new code, please use Cool Uses For Perl.

User craft