<perl>
if ($cmd eq "add") { 
    $err.=" -> Emailadresse eingeben" if $_put{Email} eq "";
    if ($err ne ""){
        out "Bitte ausfüllen: $err<br>";
        undef %_put;
   } else {
       $senddat=datum('jetzt', 'intern');
       mail "", "", "

       out<<EOF;
       Danke
EOF
   } # E if/else err

out<<EOF;
<form action="...." method=post enctype="multipart/form-data">
<input type="hidden" name="cmd=" value="add">
-1-<SELECT NAME="1:="><OPTION VALUE=""></OPTION><OPTION VALUE="1">1</OPTION>
<OPTION VALUE="2">2</OPTION><OPTION VALUE="3">3</OPTION></SELECT>
<br>
-2-<SELECT NAME="2:="><OPTION VALUE=""></OPTION><OPTION VALUE="1">1</OPTION>
<OPTION VALUE="2">2</OPTION><OPTION VALUE="3">3</OPTION></SELECT>
<br>
-3-<SELECT NAME="3:="><OPTION VALUE=""></OPTION><OPTION VALUE="1">1</OPTION>
<OPTION VALUE="2">2</OPTION><OPTION VALUE="3">3</OPTION></SELECT>
<br>
<input type="submit" value="GO" name="Submit">
</form>
EOF
}
</perl>