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

##</code><code>##

# ./color.cgi color=red
Content-type: text/plain

$VAR1 = 'red';