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

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())
{
	print "Your name is ",em(param('name')),p, hr;
}