Bone::Easy

A Perl module used to generate random bad pick up lines.
Sample output includes:

• May I end this sentence by sucking your hand?
• Shall we go back to my bar and hump ourselves?
• What did the redneck say to the bus driver?
• I have never licked the beaver of someone like you.
• I'd like to ream your navel.
• Let's not beat around the bush, sweetheart, when are you going to drain that?
• What's your sign? Hope it's not cock-tease.
• Squeeze me if I'm wrong, but don't I know you?
• One hour with me, honeybuns, and you'll become a nun.

Curiously, the rules section (the part that says what to string together, and how) is not under any 'free software' license, and may not be used for commerical purposes without the express permission of the writers, Chris Coyne and TheSpark.com.

If anyone has any ideas as to how this could possibly be used commerically, please let me know...