print "----------------------\n";
while (my $row = $sth->fetchrow_hashref()) {
  print qq~<td style="text-align:center"><a href="\#">~;
  $row->{Server_Hostname} =~ s/\r//g; # CRs rauskicken
  print CGI::escapeHTML($row->{Server_Hostname}); # html-sonderzeichen escapen
  print qq~</a></td>\n";
} # while
print "------------------------\n";