print '<table border="1" rules="groups">
           <colgroup>
              <col width="50">
              <col width="80">
              <col width="300">
              <col width="50">
           </colgroup>
           <thead>
           <tr>
              <th>doc_typ</th>
              <th>doc_name</th>
              <th>headline</th>
           </tr></thead>
           <tbody>';
   foreach my $ptr (@{$daten})
   {

       print '<tr>';
       print '    <td>'.$ptr->{doctyp}.'</td>
                  <td>'.$ptr->{docname}.'</td>

   <td>'.$ptr->{head}.'</td>

<td><input type="button" value="Auswahl" onClick=""></td>