my $dbh = DBI->connect($data_source, $username, $auth, {RaiseError => 1});
my $sth = $dbh->prepare('select * from table');
print qq~<table border="1">\n<tr>\n~;
print map "<th>$_</th>\n", @{$sth->{NAME}};
print "</tr>\n";
while (my $arrayref = $sth->fetchrow_arrayref) {
  print "<tr>\n";
  print map "<td>$_</td>\n", map +(defined($_) ? $_ : 'NULL'), @$arrayref;
  print "</tr>\n";
}
print "</table>\n";
$sth->finish;
$dbh->disconnect;