#!/usr/bin/perl
# Script: vegetables1.pl
use CGI::Pretty ':standard';
print header,
  start_html('colors'),
  h1('HTML Color Table'),

  @values = qw(00 11 22 33 44 55 66 77 88 99 AA BB CC DD EE FF);

  print ("<table border=1 cellpadding=2>\n");
  for ($B = 0; $B <= 15; $B++) {
    for ($G = 0; $G <= 15; $G++) {
      print ("<tr>\n");
      for ($R = 0; $R <= 15; $R++) {
        $color = "$values[$R]$values[$G]$values[$B]";
        print ("<td bgcolor=\"#$color\">");
        print ("#$color");
        print ("</td>\n");
      }
    }
    print ("</tr>\n");
  }
  print ("</table>\n");

  end_html;