#!/usr/local/bin/perl
# CGI script to test an HTML form.
# Originally written by ryan@odouls.stx.com (patrick m. ryan)

require 'cgi-lib.pl';

select STDOUT;
$| = 1;

# Suck in everything from httpd.
&ReadParse;

print &PrintHeader;
print "<title>CGI test</title>\n";

print &PrintVariables(%in);
print &PrintVariables(%ENV);
print "\n";
exit 0;