Bone::Easy (thing)

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.