<perl>
if ($cmd eq "add") {
    $err.=" -> Name<br>" if $_put{Name} eq "";
    $err.=" -> E-Mail<br>" if $_put{E-Mail} eq "";
    $err.=" -> Nachricht<br>" if $_put{Nachricht} eq "";
    if ($err ne ""){
        out "Noch auszufüllen:<br><br>$err<br><br>

<form action="http://www" method=post enctype="multipart/form-data">
<input type="hidden" name="cmd=" value="add">
Name: <input type="text" name="Name:=" value="$Name">
E-Mail <input type="text" name="E-Mail:=" value="$E-Mail">
Nachricht: <textarea name="Nachricht:=">$Nachricht</textarea>
<input type="submit" value="Abschicken">
</form>
EOF

   } else { 
       $senddat=datum('jetzt', 'intern');  
       mail 'Empfänger', "Thema", "

       out<<EOF;
       Danke
EOF
}
} else {

<form action="http://www" method=post enctype="multipart/form-data">
<input type="hidden" name="cmd=" value="add">

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