#!/local/bin/perl
require "cgi-lib.pl";
# comments start with a '#'
&ReadParse(*input); # put all of the form variables into "input"
$field1=$input{'FIELD1'}; # extract variable 'FIELD1' into $field1
$field2=$input{'FIELD2'};
$select=$input{'SELECT'};
$button=$input{'BUTTON'};
$c1=$input{'C1'};
$c2=$input{'C2'};
$c3=$input{'C3'};
# print out a block of html text
print << "EOF";
Content-type: text/html\n
\n
This is a test
\n
FIELD1 = $field1
\n
FIELD2 = $field2
\n
The option was $select
\n
The radio button selected was $button
\n
Checkboxes are 1:$c1 - 2:$c2 - 3:$c3
\n
Environment variables:
EOF
foreach $key (keys %ENV){
print "$key = $ENV{$key}
\n";
}
print "
Post Variables
\n";
foreach $key (keys %input){
print "$key = $input{$key}
\n";
}
print << "EOF";
\n
EOF