I'd suggest trying Text::Table. However, I've also tried things like printing to a file, something like this:

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";
[download]

and then viewing the file in a browser. (Note: I wrote this off the top of my head, so it's untested, etc.)

...roboticus

When your only tool is a hammer, all problems look like your thumb.