my $sth = $dbh->prepare("select * from foo");
$sth->execute;

print qq~<table>\n~;
print qq~<tr>\n~;
foreach (@{$sth->{NAME}}) {
   print qq~<th>$_</th>\n~;
}
print qq~</tr>\n~;

while (my @ary = $sth->fetchrow_array) {
   print qq~<tr valign="top">\n~;
   foreach (@ary) {
      $_ = defined($_) ? $_ : '&nbsp;';
      print qq~<td>$_</td>\n~;
   }
   print qq~</tr>\n~;
}

print qq~</table>\n~;