#!/usr/bin/perl $basepath = "/usr/share/games/fortune/"; @files = ("fortunes", "zippy", "fortunes2", "limerick", "startrek"); srand; open (FILE, "$basepath/$files[rand(@files)]"); local ($/) = undef; $data = ; @sdata = split('%', $data); close FILE; print "content-type: text/html\n\n"; print "\n"; print "\n"; print "

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

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