<perl>
 if (%_put and length($Name)<=5){
  $emsg = "Bitte einen Namen eingeben der länger ist als 5 Zeichen.";
 }

 if ($emsg eq "" and %_put){
  put ["Name",$_put{"Name"}],"db";
 }else{
  $name = $_put{"Name"};
  $name=~ s/"/&quot;/gs;
  out "<strong>$emsg</strong>" if $emsg ne "";

<form action="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=$htx"
method=post enctype="multipart/form-data">
<input type="text" name="Name:=" value="$name"><br>
<input type="submit">
</form>
EOF
 }