#!c:/perl/bin/perl.exe

use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
use warnings;

print header, start_html, h3("Choose Color"), hr;

my $query = CGI->new();

if ($query->param('Submit')) { # If user has chosen a favorite color
	print p("You chose <b>", $query->param('color'), "</b>.\n");

}
else { # User hasn't yet chosen a favorite color
	print p("Choose your favorite color:\n");
	print start_form;
	print p($query->popup_menu(-name=>'color', -values=>[qw(blue green red gold yellow)]), $query->submit("Submit"));
	print end_form;
}

print end_html;