Select Code to Download

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 = (
"<span class=\"mut\" style=\"color:#f00;\">red</span>",
...
"<span class=\"mut\" style=\"color:#fff;\">white</span>",
"<span class=\"mut\" style=\"color:#000;\">black</span>"
);

my @Colors = (
"f00;\">red",
...
"000;\">black"
);
my $Color = "<span class=\"mut\" style=\"color:#$Colors[rand @Colors]<
+/span>";

my %Colors = (
red     =>f00,
...
white   =>fff,
black   =>000
);

<span class="mut" style="color:(color code)">(color name)</span>