You're Playing the Truth Game!

#!/usr/local/bin/perl4 open(GORY, "category.data") || die "Can't open quote file: $!"; @buffer = ; close(GORY); $buffer = join('',@buffer); @randarray = split (/\n/, $buffer); @numarray = ("1","2","3","4","5","6","7","8"); #srand(time ^ $$); #$random = rand(@randarray); $random = `jot -r 1 0 7`; $quote = $randarray[$random]; $loc= $numarray[$random]; print "Expires: Mon, 23 Aug 1999 16:00:00 GMT\n"; print "Pragma: no-cache\n"; print "Cache-Control: no-cache\n"; print "Content-type: text/html\n\n"; print "\n"; print "\n"; print " You're Playing the Truth Game!\n"; print "\n"; print ''; print "\n\n"; print "\n"; open(HEAD,"; close(HEAD); foreach $line (@headers) { print "$line"; } print "

\n";
print "

\n"; print '

'; print "\n"; print "You landed on $quote. "; open(QUOTE, "$loc.data") || die "Can't open quote file: $!"; @buffer2 = ; close(QUOTE); $buffer2 = join('',@buffer2); @randarray2 = split (/\n/, $buffer2); srand(time ^ $$); $random2 = rand(@randarray2); $quote2 = $randarray2[$random2]; print "Your question is...
\n"; print ''; print "$quote2"; print ''; print "\n\n
\n"; #print "random1 $random random2: $random2\n\n"; print "
\n"; print 'Want to play again? Just click the game board to give it another spin!'; print "
\n"; print '

'; print '\n"; print ""; print "\n\n";