use CGI qw/:standard/; print "<TABLE BORDER=1>; while(@row = $sth->fetchrow_array()){ print Tr( td ( \@row)); } print </TABLE>\n"; [download]
In reply to button in a table? by jw_griffith