#!/usr/bin/perl
#
#	perltest.cgi: simple perl CGI test
#
use strict;
use CGI qw/:standard/;
use HTML::Entities;


print header,
	start_html('A Simple Example'),
	h1('A Simple Example'),
	start_form,
	"What's your name? ",textfield('name'),p,
	submit,
	end_form,
	hr;

if (param())
{
	my $name = param('name');
	$name = HTML::Entities::encode($name);
	print "Your name is ",em($name),p, hr;
}