#!/usr/bin/perl -T
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/plain\n\n";
my $color=param('color');
print "Your chosen color is $color.\n";