use CGI qw/:standard/;

print "<TABLE BORDER=1>;
while(@row = $sth->fetchrow_array()){
 print Tr( td ( \@row));
}
print </TABLE>\n";