<perl>
$selJahr=$aktuelljahr if ($selJahr eq "" or $selJahr eq "*");##aktuelles Jahr als Default
$myDB="/xxx/xxx/Challenge";
$Parameter="Jahr==$selJahr";

while (get_next("$myDB")){
   $Resultat=0;
   $Resultat=$Resultat+15 if ($GV==1);
   $Resultat=$Resultat+15 if ($EBW==1);
   $Resultat=$Resultat+20 if ($HOGRally==1);
   $Resultat=$Resultat+($Clubabend*5) if ($Clubabend>0);
   $Resultat=$Resultat+($Officer*2) if ($Officer>0);
   $Resultat=$Resultat+($TourET*6) if ($TourET>0);
   $Resultat=$Resultat+($TourMT*12) if ($TourMT>0);
   $Resultat=$Resultat+($Brezn*3) if ($Brezn>0);
   $Resultat=$Resultat+($TourET*6) if ($TourET>0);
   $Resultat=$Resultat+$Sponsor if ($Sponsor>0);
   $KMPunkte=0;
   $KMPunkte=($KMEnde-$KMStart)/1000 if ($KM==1);
   $Resultat=$Resultat+$KMPunkte;

   out "<p>errechnetes Resultat für Member Nr. $Member = $Resultat</p>";
   mod "Id==$_id", ["Punkte", "$Resultat"], "$myDB";
   out "<p>Datenbank wurde aktualisiert - Stand: Member Nr. $Member hat $Resultat Punkte</p>"; 

</perl>