#build form elements
my $openform = start_form( { -action  => "action_dbi.cgi",
                             -enctype => "application/x-www-form-urlencoded",
                             -method  => "post" } );
 
my $chk_question = checkbox_group(-name=>'question',
                                  -values=>['yes','no'],
                                  -default=>['yes']); 

my $cmd_submit = input( { -type  => "submit",
                          -value => "submit"} );

#print form
print <<End_of_Form;
$openform
   h1( strong( "Does this format look correct?" ) )
   $chk_question
   p( "&nbsp;" )
   p( $cmd_submit)
end_form()
End_of_Form