#!/usr/local/bin/perl

# Author: David Corcoran
# This is published under the GNU Public License, for more information
# please visit http://www.gnu.org
#
# This test CGI will print back the value of the calling pages form

do "cgi-lib.pl" || die "Cannot do cgi-lib.pl\n";

&ReadParse;

$name = $in{'moniker'};

print "Content-type: text/html \n\n";
print "<HTML><TITLE>Test CGI</TITLE>\n";
print "<BODY BGCOLOR='White'>\n";

print "<H2>The name is $name</H2>\n";
print "</BODY>\n";
print "</HTML>\n";

exit(0);
