Seems like you also might just use the CGI.pm with default values. Psuedo-code (basically just Lincoln Stein CGI documentation ) follows:
#!/usr/local/bin/perl
use CGI qw(:standard);
print header;
print start_html('Lincoln Stein Rocks the Perlmonk Example'),
h1('Perlmonk Example'),
start_form,
"What's the combination?",p,
checkbox_group(-name=>'words',
-values=>'eenie','meenie','minie','moe'],
-defaults=>['eenie','minie']),
p,
"What's your favorite color? ",
popup_menu(-name=>'color',
-values=>'red','green','blue','chartreuse']),
p,
submit,
end_form,
hr;
print end_html;
|