my $i;
# output column headers
foreach  $i(@field_desc) {
    print "<TH>$i</TH>\n";
}
print qq `</TR>`;

my $sth = $dbh->prepare($SQL);
$sth->execute() or die $dbh->errstr;

my $row;
foreach $row ( $sth->fetchrow_arrayref )# while more rows fetch next one
{
  print "<TR>";
  foreach my $cell (@$row) {
    print "<td>$cell</td>";
  }
  print "</TR>";
}
print "</TABLE>";
print $q->end_html;

$dbh->disconnect() or die $dbh->errstr;