There's more than one way to do this

I've been meaning to do some more useful stuff with Perl since forever.
This seems like a good way to go about doing it.

http://www.ebb.org/PickingUpPerl/