one matter of style, i prefer the qq(); function over so many print statements, it prints prettier because it recognizes new lines instead of forcing you to put in \n over and over(right now you're printing all your html on one line, which is hard to debug.

print qq(
<table>
<tr><br><br>
<td><b><u>IPS</u> - </b>@ips<br><br>
</tr>
<tr>
<td><b><u>Cnames</u> - </b>@names<br><br>
</tr>
<tr>
<td><b><u>Services</u> - </b>@services<br><br>
</tr>
<tr>
<td><b><u>Banners</u> - </b>@banners<br><br><br>
</tr>
</table>
),
start_form( { -action  => "action_dbi.cgi",
                      -enctype => "application/x-www-form-urlencoded",
                      -method  => "post" } ),
   h1( strong( "Does this format look correct?" ) ),
      checkbox_group(-name=>'question',
                                -values=>['yes','no'],
                                -default=>['yes'], 
   p( "&nbsp;" ),
   p( input( { -type  => "submit",
               -value => "submit"} ),
   ), #end p 
end_form,
end_html;
[download]