I'm sorry.. what can I say...
It's on the way to the CPAN, or can be found at http://leo.cuckoo.org/projects/Pr0n/ I definatly need to add more to it to make it more Pr0n specific.
From POD:
This test object has been inspired by Schwern and advanced testing, a conversation on IRC and a reference to Schwern and pr0n. Having written it I realise it's not very pr0n specific but I'm sure it will be abused propperly.
Funny, Schwern was there when the idea of Acme::Pr0n came up too. Of course, you didn't say that Dominus was also around. He's an important component of that sort of thing.
(Now I realize that Google will probably index this subject. Yikes.)