[Oc-pm] Solution to April Perl Challenge

[Wyatt Draggoo]

Sure, it's last minute. And hasn't gone through thorough use case
checks. But I'm pretty sure it works-ish.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: chall4.pl
Type: text/x-perl
Size: 3987 bytes
Desc: not available
URL: <http://mail.pm.org/pipermail/oc-pm/attachments/20130429/050036ab/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 198 bytes
Desc: Digital signature
URL: <http://mail.pm.org/pipermail/oc-pm/attachments/20130429/050036ab/attachment-0001.bin>