<PERL-CODEFRAGMENT>
##
##Variablendefinition
##
$myDB=“/meineDatenbank“;
Parameter=“Feld0==$VariablemitWert“;
$Orderby=“meinSortierkriterium“;
$Feldname=“Feld1“;
$Feldname=“Feld2“ if ($prueffeld==irgendwas);
$Feldname=“Feld3“ if ($prueffeld==irgendwasanderes);
$NeuerWert=datum("jetzt");
##
##hier gehts eigentlich erst los
##
get "$Parameter sort=$Orderby", "$myDB";
while (get_next("$myDB")){
 mod "Id==$_id" ["$Feldname", "$NeuerWert"], "$myDB";
}
##
##etc. etc.
##
</PERL-CODEFRAGMENT>