Random Factoid About Aaron
";
print "$factnum of $#facts ";
($title,$fact) = split("%#%", @facts[$num]);
print " $title";
print " $fact";
exit (0);
Reload For A New Factoid
#!/usr/bin/perl
print "Content-type: text/html\n\n";
srand();
open (FACT, "