<perl>
# Einzelteile des aktuellen Datums in Variablen schreiben
$dag = datum("$startdatum","Tag"); $mon = datum("$startdatum","Monat"); $jar = datum("$startdatum","Jahr");
# Alle DS holen, sortiert nach Geburtstagsdatum in absteigender Reihenfolge (älteste zuerst)
get "Geburtstag==* sort=-","../../user/mitglieder","user";
while(get_next("user")){
  # Einzelteile des Geburtstagsdatums des jeweils aktuelle DS in lok. Vars schreiben
  my $vdag = datum("$Geburtstag","Tag"); my $vmon = datum("$Geburtstag","Monat); my $vjar = datum("$Geburtstag","Jahr");
  
  if ($vmon == $mon && $vdag == $dag){# wenn Monat und Tag gleich aktuellem sind
  my $alter = $vjar - $jar; # Alter  für aktuellen DS ausrechnen
  # Ausgabe in Var "kumulativ" schreiben (Punkt Verkettet mit vorh. Inhalt)
  $geburtstagskinder .=  "$Vorname $Name zum $alter.<br>" ; 
  $cnt_geburtstagskinder++; # Zähler für gefundene Geburtstagskinder erhöhen
}
if ($cnt_geburtstagskinder > 0){ # wenn Geburtstagskinder vorh. ausgeben
out "Wir gratulieren heute folgenden $cnt_geburtstagskinder Usern zum Geburtstag:<br>";
out "<font size=1>$geburtstagskinder</font>";
}
</perl>