print $cgi->start_html(-title => 'Antwort');

 my $msg = qq~<center><h1>Suchergebnis</h1><hr><table border=1><tr><td width="200">
              <b>Familienname:</b></td><td width="100"><b>Vorname:</b></td>
              <td width="200"><b>Abteilung:</b></td>
              <td width="100"><b>Telefon:</b></td></tr>~;

 my $table = "";
 while (my ($familienname,$vorname,$abt,$telefon) = $sth->fetchrow_array()) {
   $table .= qq§<tr>\n<td><b>$familienname</b></td>\n<td>$vorname</td>
                <td>$abt</td>\n<td>$telefon</td>\n</tr>\n§;
 }

 unless($table){
   $msg = qq~<p>Leider brachte die Suche keine Ergebnisse!</p><hr>~;
 }
 else{
   $msg .= $table.'</table>';
 }

 $msg .= qq~<p><a href="formular1.html">Neue Suche</a></p>\n<hr>\n</center>~;
 print $msg;