print '<table>';
while (@row=$sth->fetchrow_array){
  print '<tr>';
  print '<td>',$_,'</td>' for(@row);
  print '</tr>';
}
print '</table>';