multiple_forms.cgi revision 7c478bd95313f5f23a4c958a745db2134aa03244
use CGI;
print "<H1>Multiple Forms</H1>\n";
# Print the first form
print "<P>What's the combination?<P>",
print "<P>What's your favorite color? ",
"<P>";
# Print the second form
print "<HR>\n";
print "<HR>\n";
if ($Q::form_1) {
print "<H2>Form 1 Submitted</H2>\n";
print "Your name is <EM>$Q::name</EM>\n";
print "<P>Your favorite color is <EM>$Q::color</EM>\n";
print <<EOF;
<H2>Form 2 Submitted</H2>
<P>The value of the radio buttons is <EM>$Q::radio_buttons</EM>
<P>The secret password is <EM>$Q::pass</EM>
EOF
;
}