print $query->header(-type=>'text/html'),
$query->start_html(-title=>'My Web Page'),
$query->start_table({-border=>'0', -width=>'400'),
$query->start_Tr,
$query->start_td({-align=>'left', -width=>'100%',
                  -colspan=>'1'),
"Header", "\n",
$query->end_td, $query->end_Tr;

while(something) {
   somecode;
   somecode;

   # Loop around and fill in table data

   print $query->start_Tr,
   $query->start_td({-align=>'left', -width=>'100%',
                     -colspan=>'1'),
   "Some Data", "\n",
   $query->end_td, $query->end_Tr;
}  #End while statement

# Close out table and web page

print $query->end_table,
$query->end_html;