#!/usr/bin/perl -wT
use CGI qw(:standard);
# declare the colors hash:
my %colors = (	red => "#ff0000", green=> "#00ff00",
    blue => "#0000ff",	black => "#000000",
    white => "#ffffff" );
# print the html headers
print header;
print start_html("Colors");
foreach my $color (keys %colors) {
    print "<font color=\"$colors{$color}\">$color</font>\n";   
}
print end_html;