$TITLE
EOF
;
exit 0;
}
sub print_html_header {
print $query->start_html($TITLE);
}
sub print_end {
print qq{
More Examples};
print $query->end_html;
}
sub print_query {
$script_name = $query->script_name;
print "Frameset Query
\n";
print $query->start_form(-action=>"$script_name/response",-TARGET=>"response");
print "What's your name? ",$query->textfield('name');
print "What's the combination?
",
$query->checkbox_group(-name=>'words',
-values=>['eenie','meenie','minie','moe']);
print "
What's your favorite color? ",
$query->popup_menu(-name=>'color',
-values=>['red','green','blue','chartreuse']),
"
";
print $query->submit;
print $query->endform;
}
sub print_response {
print "
Frameset Result
\n";
unless ($query->param) {
print "No query submitted yet.";
return;
}
print "Your name is ",$query->param(name),"\n";
print "The keywords are: ",join(", ",$query->param(words)),"\n";
print "
Your favorite color is ",$query->param(color),"\n";
}