davorg is right! So I modified my original, um, modification to include some nice HTML formatting to it. Here's the new code. Thanks
davorg for getting me to fix it! -timallen
#!/usr/bin/env perl -w
use strict;
my $quip = "";
{
$/ = "%%\n";
rand($.) < 1 && chomp($quip = $_) while(<DATA>);
}
print "Content-Type: text/html\n\n";
print "<html><head><title>Fortune Teller Says...</title></head>";
print "<body bgcolor=#CCFFFF>";
print "<h3>$quip</h3>" || "<font color=FF0000>Could not get quote</fon
+t>";
print "</body></html>";
__END__
... followed by the original (hilarious) quips!