<perl>
          if ($cmd eq "")
          {
          get "Datum<jetzt","gottesdienste";   # dbname mit der orginaldb ersetzen
          while (get_next("gottesdienste"))    # hier auch
          {

          put
          ["Gemeinde",$Gemeinde,"Datum",$Datum,"Zeit",$Zeit,"Kollekten / Predigttext",$Kollekten / Predigttext,"Pfarrer / Pfarrerin",$Pfarrer / Pfarrerin],"gottesdienste_archiv";
          }
          }
</perl>