#! /usr/local/bin/perl #print "this is a random sentence spitter\n"; open( JA, "burroughs"); $i = 0; while ( $a = ){ chop $a; if ($a eq "") { --$i; } elsif ( $a =~ /.html/ ) { @file[$i] = $a; --$i; } else { @line[$i] = $a; } ++$i; } srand; $card1 = rand @line; $card2 = rand @line; $card3 = rand @line; $card4 = rand @line; $card5 = rand @line; $card6 = rand @line; $card7 = rand @line; $card8 = rand @line; print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "The Poems I make for You.\n"; print "

\n"; print "

\n"; print "

\n"; print "

\n"; print "

\n"; print "\n"; print "@line[$card1]<\/a> \n"; print "

\n"; print "@line[$card2] \n"; print "

\n"; print "@line[$card3] \n"; print "

\n"; print "@line[$card4] \n"; print "

\n"; print "@line[$card5] \n"; print "

\n"; print "@line[$card6] \n"; print "

\n"; print "@line[$card7] \n"; print "

\n"; print "@line[$card8] \n"; print "

\n"; print "

\n"; print "

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

hit me<\/a> again<\/p>"; #print "
\n"; #print "for another one"; print "

escape<\/a>"; print "<\/html>\n";