#!/usr/bin/perl

use strict;
use warnings;

use CGI;

my $cgi = CGI->new;

print $cgi->header('text/html');

print << "EndOfHTML";
<!DOCTYPE html
	PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
	"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"
>

		A Simple CGI Page

A Simple CGI Page
		
			Name: 
			Age: 

EndOfHTML

if ( my $name = $cgi->param('name') ) {
    print "Your name is $name.
";
}

if ( my $age = $cgi->param('age') ) {
    print "You are $age years old.";
}

print '';
