Had you noticed Genetic Programming or breeding Perls on the Best Nodes page? It might be a good one to compare your code to. Some neat stuff in there too. You get my last ++ of the day for having POD in yours. =) (oops, I take that back, you'll get my first vote tomorrow, I done ran out already... =P /me thumps himself on the head.)

--
$you = new YOU;
honk() if $you->love(perl)