#!/usr/bin/perl
use CGI qw(:standard);

print "Content-type: text/html\n\n";


$format = lc(&param("format"));

$age = &param('age');

if ($format eq "xml") {
	print "<age>$age</age>";
}
else  {

	print "Hi, you are $age years old!\n";
}