#!/usr/bin/perl
print "Content-type: text/html\n\n";
%hex = (
	"0" => "00",
	"85" => "55",
	"170" => "AA",
	"255" => "FF",
);
print "<table width=100>\n";
for($r=0;$r<=255;$r+=85) {
	for($g=0;$g<=255;$g+=85) {
		print "<tr>\n";
		for($b=0;$b<=255;$b+=85) {
			print "<td bgcolor=\#$hex{$r}$hex{$g}$hex{$b}\>&nbsp;</td>";
		}
		print "</tr>\n";
	}
}
print "</table>\n";