#!/usr/bin/perl

$t=1;
$r=0;
$c=0;

print "<table align=\"center\" border=\"0\">\n";
foreach $v1 (0x00,0x33,0x66,0x99,0xcc,0xff)
{
    $h1=sprintf("%02x",$v1);

    if($t)
    {
	print "<tr><td>";
    }
    else
    {
	print "</td><td>";
    }

    print "<table bgcolor=\"black\" cellspacing=\"1\" border=\"0\">\n";
    print "<tr>";
    print "<td>&nbsp;</td>" unless $c;
    print "<th colspan=6><font color=\"white\">R=$h1</font></th></tr>\n";

    unless($r)
    {
	print "<tr>";
	print "<td>&nbsp;</td>" unless $c;
	foreach $v2 (0x00,0x33,0x66,0x99,0xcc,0xff)
	{
	    $h2=sprintf("%02x",$v2);
	    print "<th><font color=\"white\">G=$h2</font></th>";
	}
	print "</tr>\n";
    }

    foreach $v2 (0x00,0x33,0x66,0x99,0xcc,0xff)
    {
	$h2=sprintf("%02x",$v2);
	print "<tr>";
	print "<th><font color=\"white\">B=$h2</font></th>" unless $c;
	foreach $v3 (0x00,0x33,0x66,0x99,0xcc,0xff)
	{
	    $h3=sprintf("%02x",$v3);

	    $f="#".($v1<102?'ff':'00').($v3<102?'ff':'00').($v2<102?'ff':'00');

	    print "<td bgcolor=\"#$h1$h3$h2\" align=\"center\"><font color=\"$f\"><pre>#$h1$h3$h2\nR=$v1\nG=$v3\nB=$v2</pre></font></td>";
	}
	print "</tr>\n";
    }
    print "</table>\n";
	$c=1-$c;

    if($t)
    {
	print "</td><td>";
    }
    else
    {
	print "</td></tr>";
	$r++;
    }
    
    $t=1-$t;

}
print "</table>\n";