#!/usr/local/bin/perl # Fucked with by Ben (ben@hemp.net). print "Content-type: text/html\n\n"; srand; open(FACTS, "../../ben/facts.txt") || die "No Facts!\n"; $ctr=0; while () { @list[$ctr] = $_; $ctr++; } print "Random Hemp.Net Facts\n"; print "\n"; print "

\n\n"; print $list[rand(@list)]; print "\n

\n"; print "Another Random Hemp.Net Fact\n"; print "\n"; close (REPLIES);