Random Factoid About Aaron
Reload For A New Factoid
#!/usr/bin/perl print "Content-type: text/html\n\n"; srand(); open (FACT, ") { $stuff .= $line; } close FACT; @facts = split("\n%%%\n", $stuff); $num = int(rand($#facts) + 1) - 1; $n2 = int(rand(10000)); $factnum = $num+1; print "RELOAD

"; print "$factnum of $#facts

"; ($title,$fact) = split("%#%", @facts[$num]); print "

$title"; print "

$fact"; exit (0);