use CGI
::Carp qw
/fatalsToBrowser/;
print $query->start_html("Example CGI.pm Form");
print "<H1> Example CGI.pm Form</H1>\n";
print $query->start_form;
print "<EM>What's your name?</EM><BR>";
print $query->textfield('name');
print $query->checkbox('Not my real name');
print "<P><EM>Where can you find English Sparrows?</EM><BR>";
print $query->checkbox_group(
-name
=>'Sparrow locations',
-Values
=>[England
,France
,Spain
,Asia
,Hoboken
],
-defaults
=>[England
,Asia
]);
print "<P><EM>How far can they fly?</EM><BR>",
-Values
=>['10 ft','1 mile','10 miles','real far'],
print "<P><EM>What's your favorite color?</EM> ";
print $query->popup_menu(-name
=>'Color',
-Values
=>['black','brown','red','yellow'],
print $query->hidden('Reference','Monty Python and the Holy Grail');
print "<P><EM>What have you got there?</EM><BR>";
print $query->scrolling_list(
-Values
=>['A Coconut','A Grail','An Icon',
print "<P><EM>Any parting comments?</EM><BR>";
print $query->textarea(-name
=>'Comments',
print "<P>",$query->reset;
print $query->submit('Action','Shout');
print $query->submit('Action','Scream');
print "<H2>Here are the current settings in this form</H2>";
foreach $key ($query->param) {
print "<STRONG>$key</STRONG> -> ";
@values = $query->param($key);
print join(", ",@values),"<BR>\n";
<ADDRESS>Lincoln D. Stein</ADDRESS><BR>
<A HREF="/">Home Page</A>