<!--#include file="header.html"--> 
<%
  my @colors = qw(Red Green Blue);
  my %defaults = ( BGCOLOR => 'FFFFFF',
                   TEXT    => '000000',
                   LINK    => '0000FF',
                   ALINK   => 'FF0000',
                   VLINK   => 'AA0000',
                 );

  my @types = keys %defaults;

  if ($Request->Form('submit')) {
    $Response->Include('rgb2hex.html', \@types, \@colors, \%defaults);
  }
  else {
    $Response->Include('form.html', \@types, \@colors, \%defaults);
  }
%>
<!--#include file="footer.html"-->