<perl>
if ($cmd eq "add") {

    $err.=" -> Name<br>" if $_put{Name} eq "";
    $err.=" -> Email<br>" if(index($Email, "@")<0 || index($Email, ".")<0);
    if ($err ne ""){
        out "Ihre Mail wurde nicht gesendet. Füllen Sie bitte noch folgende Felder aus.<br>$err<a HREF='javascript:history.back();'>| zurück |</a>";
        undef %_put;
   } else {
       $senddat=datum('jetzt', 'intern');
 
mail "$Email", ......