|
Words of Wisdom
#!/usr/bin/perl
# quote.pl
# ******************* Modules *********************
use strict;
srand;
# *************************************************
open (FILE, ";
close (FILE);
my $phr=int(rand(@lines));
print "Content-type: text/html\n\n";
print "$lines[$phr]\n";
|
