get "$Datum", "db4"; 
 
  if($Datum>jetzt)
  {
    do_all "db=db1 ...

<perl>
if($Name ne "") 
{
  get "Name==!$Name", "db3"; 
 
  if($Passwort ne "" && $Passwort eq $pwrein)
  {

if ($cmd eq "add"){ 
       put undef, "db2"; 
       } elsif ($cmd eq "mod"){ 
       mod undef, "db2";
       }
   } 
  get "$Datum", "db4"; 
 
  if($Datum>jetzt)
  {
    do_all "db=db1 ...", "Name", "pwrein"; 
 

  } else {
    out "geht nicht mehr";
 
    $namerein="";
  }
}
}
</perl>