$feld1_datei=<<EOF;
    <input type=radio name="_filec_bild=" value=1> Keine Datei
    <input type=radio name="_filec_bild=" value=2 checked> Neue Datei:<br>
EOF

$feld1_datei=<<EOF;
   <input type=radio name="_filec_bild=" value=0 checked> Datei behalten ($f_bild)
   <input type=radio name="_filec_bild=" value=1> Keine Datei 
   <input type=radio name="_filec_bild=" value=2> Neue Datei <br>
EOF

out<<EOF;
....
  <tr>
      <td valign="top" colspan=4 class=klein>
      <span class=dunkel>Bild: <br>
      $feld1_datei</span>
      </td>
  </tr>
  <tr>
      <td class=klein> </td>
      <td colspan=4 class=klein>
      <input type=file name="bild:=" size=30 maxlength=15000 onfocus="a=this.form.elements; for(i=0; i<a.length; i++) if(a[i].name==this.name) break; a[i-1].checked=1;"></input>
      </td>
  </tr>

EOF

$f_bild=~s/\s//; 
$a_f_bild ="<img src=/files/$bild width=$a_bild_breite>" if $f_bild ne "";
$a_f_bild ="<span class=grau>Kein Bild zugewiesen</span>" if $f_bild eq "";