# Store sql queries in @sqls
push (@sqls, qq{ DESCRIBE $table{'profile'} });
push (@sqls, qq{ SELECT * FROM $table{'profile'} });

html_start();
print qq~<table>\n~;
foreach (@sqls) {
  $sth = $dbh->prepare($_);
  $sth->execute()
  or bail_out("Cannot execute query.");

  while (my @ary = $sth->fetchrow_array()) {
    print qq~<tr valign="top">\n~;
      foreach (@ary) {
        print qq~<td>$_</td>\n~ if $_;
      }
    print qq~</tr>\n~;
  }
}
print qq~</table>\n~;
html_end();