print start_html('Datenbanktest'), start_table;
while (my @ergebnis = $sth->fetchrow_array()) {
  print Tr(map td(escapeHTML($_)), @ergebnis);
}
print end_table, end_html;