# Magic 8 Ball program. use LWP::Simple; my @answers = ; chomp @answers; my $i = get( "http://www.random.org/cgi-bin/randnum?num=1&min=0&max=$#answers&col=1" ); defined $i or die "Unable to decide!\n"; print "$answers[$i]\n"; # answers horked from http://www.fiendation.com/people/chris/eight.htm __DATA__ Outlook Good Outlook Not So Good My Reply Is No Don't Count On It You May Rely On It Ask Again Later Most Likely Cannot Predict Now Yes Yes, Definitely Better Not Tell You Now It Is Certain Very Doubtful It Is Decidedly So Concentrate and Ask Again Signs Point to Yes My Sources Say No Without a Doubt Reply Hazy, Try Again As I See It, Yes