Back in the day there was a script called studnum floating around the computer science department which loaded the campus phone directory off the web and then searched for the name of the person you were looking for. With a few minor modifications this was changed to return the name and number of a random female. Never put it to use but it did provide a few laughs.

Replies are listed 'Best First'.
RE: getadate.pl
by pschoonveld (Pilgrim) on Feb 01, 2000 at 01:44 UTC
    This is without a doubt vroom's greatest contribution to the world. If only he or hahnfld had put it to use. Perhaps this even eclipses the decision making software known as 'cheeseburger.pl'. Incidently, the first time it was run by myself, it gave 10 names of girls. The second result was a girl I had already dated, poorly.
[reply]

Back to Cool Uses for Perl