use CGI; use CGI::Carp qw(fatalsToBrowser); ##

##

print "content-type: text/html \n\n";

##

##

my @Dice = qw(1d4 1d6 1d8 1d10 1d12 1d20);

##

##

my @Color = (
"red",
"yellow",
"green",
"cyan",
"blue",
"magenta",
"white",
"black"
);

##

##

my @Colors = (
"f00;\">red",
"ff0;\">yellow",
"0f0;\">green",
"0ff;\">cyan",
"00f;\">blue",
"f0f;\">magenta",
"fff;\">white",
"000;\">black"
);
my $Color = "";

##

##

my %Colors = (
red     =>f00,
yellow  =>ff0,
green   =>0f0,
cyan    =>0ff,
blue    =>00f,
magenta =>f0f,
white   =>fff,
black   =>000
);

##

##

(color name)