print $OF "<table><tr><td>", join("</td><td>", @{$ST->{NAME}}), "</td></tr>\n";
while (my $ar=$ST->fetchrow_arrayref) {
   print $OF "<tr><td>", join("</td><td>", @$ar), "</td></tr>\n";
}
print $OF "</table>\n";