#!/usr/bin/perl ################ # # demo of CGI.pm # ############### use strict; use warnings; use CGI qw(:standard); my $color = param('color') || ''; # string is '' if no param print header; print qq{

Your color is '$color'.
}