my @names = $sth->{NAMES};
print "<table border=1>\n".join("",map{'<th>'.$_.'<th>'}@names);
while(my @row = $sth->fetchrow_array()){
    print "<tr>".join("",map{'<td>'.$_.'</td>'}@row)."</tr>";
}