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

As it says in the Bone::Easy POD, Generates pickup-lines GUARANTEED to get something thrown in your face..

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...

Log in or register to write something here or to contact authors.