Just dragged one of my Perl modules at work up to 100% coverage using Devel::Cover!
I have to confess to more than a little satisfaction at this. :-)
Tangentially, Googling for "Slave to the Green" brings up a lot of links about "Orion Slave Girls". Warning: NSFW.