<perl>
 if ($cmd eq "add") {
  $err.="Feld XXX nicht angegeben" if ($XXX eq "");
  $err.="Feld YYY nicht angegeben" if ($YYY eq "");
  $err.="Feld ZZZ nicht angegeben" if ($ZZZ eq "");
  if ($err ne "") {
   out "Folgende Fehler sind aufgetreten:<br>$err";
  } else {
   put;
  }
 }
</perl>