#!/usr/bin/perl -w
#################################################################################
## Author:      BRIAN HUNTER
## Date:        8/10/2020
## Email:       brian@sutechy.com
#################################################################################
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;


my %colors = (	red	=> "#ff0000",
		green	=> "#00ff00",
		blue	=> "#0000ff",
		gold	=> "#cccc00");

print header;
my $color = param('color');

#do some validation - be sure they pick a valid color
if (exists $colors{$color}) {
   print start_html(-title=>"Results", -bgcolor=>$color);
   print "You picked $color.
\n";
} else {
     print start_html(-title=>"Results");
     print "You didnt pick a color! (You picked '$color')";
}
print end_html;