#!/usr/bin/perl -wT
use strict;
use CGI qw/:standard/;
use HTML::Entities;
my $_name = param('name') || '';
my $_color = param( 'color' ) || '';
my ( $name ) = $_name =~ /^([[:alpha:][:punct:][:space:]]+)$/;
my ( $color ) = $_color =~ /^([[:alpha:]]+)$/;
encode_entities( $name );
print header, <<"END_HTML";
Test page
Your name is "$name" and the color you listed was "$color"
END_HTML