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";
Was it a hard day?
It didn't go your way?
Then you need this:
For Dogs Lovers