### Nach Abschicken Daten prüfen
if(%_put)
{
 ### Alle Felder durchtesten und Fehler sammeln
 push @emsg, "Feld 1 ist leer" unless($_put{feld1});
 push @emsg, "Feld 2 ist leer" unless($_put{feld2});
 ...

 ### Falls fehlerfrei -> schreiben
 unless(@emsg)
 {
  put undef,"datenbank";
 }

### ggf. Fehler anzeigen
out join "<br>",@emsg if(@emsg);

out <<EOF;
<form action= ... >

<input type="text" name="feld2:=">

<input type="submit" value="Abschicken">
</form>
EOF