#!/usr/bin/perl
#srand(time+$$); # not necessary since Perl5.004
print "Content-Type: text/html
Alan!";
for (1..11) {
print "\n";
for (1..18) {
$color = "ffffff";
while (($color eq "ffffff") || ($color eq "000000")) {
$color = (rand() > 0.5 ? "ff" : "00");
$color .= (rand() > 0.5 ? "ff" : "00");
$color .= (rand() > 0.5 ? "ff" : "00");
}
print " | \n";
}
print "
";
}
print"
\n";