#!/opt/bin/perl
$inc = 0x33;
print "Content-type: text/html
$text\n";
for ( $r = 0; $r <= 0xFF; $r += $inc ) {
print "\n";
for ( $g = 0; $g <= 0xFF; $g += $inc ) {
print "";
for ( $b = 0; $b <= 0xFF; $b += $inc ) {
$rgb =
sprintf ("%2.2x%2.2x%2.2x", $r, $g, $b);
print
"|
#$rgb #$rgb
| ";
}
print "
";
}
print "
";
}