#!/usr/local/bin/perl
do "cgi-lib.pl" || die "Fatal Error: Can't load cgi library";
#calls subroutine in cgi-lib.pl library (documented in library)
&ReadParse;
print "Content-type: text/html\n\n";
if ($#in>=0) {
print "\n";
print "\n";
print "Test Form Results\n";
print "\n";
print "
\n";
print "Test Form Results
\n";
print "\n";
print "
\n";
print "
\n";
print @in;
print "
\n";
print "$in";
print "
\n";
print "
\n";
print "\n";
print "\n";
} else {
print "\n";
print "\n";
print "Test Form\n";
print "\n";
print "\n";
print "Test Form
\n";
print "\n";
print "\n";
print "\n";
}