<perl>
out "$Bild"; # Dateiname von upload wird hier ausgegeben
out "<form action=\"test&speichern=1\" name=\"aufgehts\" method=\"post\" enctype=\"multipart/form-data\">"; 
out "Datei:";
out "<input type=radio name=\"_filec_Bild=\" value=0 checked>Datei behalten: $Bild" if $Bild; 
out "<input type=radio name=\"_filec_Bild=\" value=1";
out " checked" unless $Bild; 
out ">Kein Bild<input type=radio name=\"_filec_Bild=\" value=2>Neues Bild:<br></font>
<input name=\"Bild:=\" type=\"file\" size=40 onClick=\"a=this.form.elements; for(i=0; i<a.length; i++) if(a[i].name==this.name) break; a[i-1].checked=1;\">";
</perl>
<input type="submit" style=font-size:10px value=" Speichern " >