Putting it Together
Putting it Together
sub generate_form {
print hr, start_form,
strong('Your name: '),
textfield(-name=>'customer'),br,
strong('Flavor: '),
popup_menu(-name=>'flavor',
-values=>[qw/chocolate vanilla lemon/]),br,
strong('Toppings: '),
scrolling_list(-name=>'toppings',
-values=>[qw/nuts sprinkles Oreos/]),br,
strong('Cone: '),
radio_group(-name=>'cone',-multiple=>1,
-values=>[qw/sugar waffle/]),br,
submit(-value=>'Send Order'),
end_form,hr;
}