1N/Aprint "<H1>Multiple Forms</H1>\n";
1N/A# Print the first form 1N/Aprint "<P>What's the combination?<P>",
1N/Aprint "<P>What's your favorite color? ",
1N/A# Print the second form 1N/A print "<H2>Form 1 Submitted</H2>\n"; 1N/A print "Your name is <EM>$Q::name</EM>\n"; 1N/A print "<P>The combination is: <EM>{",join(",",@Q::words),"}</EM>\n"; 1N/A print "<P>Your favorite color is <EM>$Q::color</EM>\n"; 1N/A<H2>Form 2 Submitted</H2> 1N/A<P>The value of the radio buttons is <EM>$Q::radio_buttons</EM> 1N/A<P>The secret password is <EM>$Q::pass</EM>