#!/usr/bin/perl $admin = 'tomr@uunet.ca'; @anagrams = ( 'I wish you a romping hen fart', 'I wish you a farting prom hen', 'Whiny UFO metaphor arising', 'Hi, I rue warm fishy poontang', 'If the gimp hoorays, ruin WAN', 'Aw, groin hypothermia is fun!', 'Whisper, "Motif..." Ha! Ruin, Agony!', 'Horny fungi swarm. Hi, opiate.', 'Enough aspirin? Wormy faith.', 'Whoosh! Imagine furry paint.', 'Enormous hairy pig with fan', 'A rough whimper of insanity', 'Hi Ho! I\'m on the Arpanet!', 'Whom finite array go punish.' ); # Randomize srand(time+$$+rand($#anagrams)); print < Information Superhighway Anagram

Information Superhighway Anagram

$anagrams[int(rand($#anagrams))]
Reload to get another!
$admin
ENDI