#!/usr/bin/perl
use CGI;
my $q = CGI->new;
print $q->header;
open (FILE, '/home/cgiguy/public_html/quotes.txt');
my @quotes =
;
close(FILE);
my $count = @quotes;
my $randnum = rand($count);
$randnum =~ s/\..*//;
my $showquote = $quotes[$randnum];
chomp($showquote);
$showquote =~ s/\~/\n/g;
if ($randnum == 0) {$testimg = 'testbg.jpg';$color='#FFFFFF';}
if ($randnum == 1) {$testimg = 'testbg5.jpg';$color='#FFFFFF';}
if ($randnum == 2) {$testimg = 'testbg3.jpg';$color='#FFFFFF';}
if ($randnum == 3) {$testimg = 'testbg2.jpg';$color='#FFFFFF';}
$test_style = "
";
print <<"HTML";
$test_style
$showquote
HTML
All Pro CGI Scripts - PHP Scripts Include: Free Install, Free Updates for 1 Year, 7 Day Money Back Guarantee