print "<table border=2>";
	while (my @array = $sth->fetchrow_array()){
		print "<tr><td>";
		print "@array\n";
		print "</td></tr>";
	}
	print "</table>";