<perl>
out "<br><b>---- Berechnung der aktuellen Woche (Zeitraum)----</b><br>";
# Variable mit akt. Datum belegen #
$date = jetzt;
# Zahlwert für Wochentag ermitteln #
$tagzahl = datum("$date", "Wochentagzahl");
# Differenz zum  letzten Wochentag herholen #
$dz = (7 - $tagzahl);
# Wochenanfangsdatum errechnen (hier für Montag als ersten Tag - deswegen tagzahl+1) #
$wanf = datum("$date" - "$tagzahl"+1,"intern");
# Datumsausgabe des ersten Tages formatieren #
$wanftag = datum("$wanf", "Wochentag, Tag.Monatname.Jahr");
# Letzten Tag der Woche errechnen #
$wendtag = datum("+$dz", "Wochentag, Tag.Monatname.Jahr");
# Ausgabe Aktueller Tag #
out "<br>Aktueller Tag: ",datum("jetzt","Wochentag, Tag.Monatname Jahr");
out "<br>Erster Tag der Woche: ",$wanftag;
out "<br>Letzter Tag der Woche: ",$wendtag;
out "<br>*******************************************";
# Nächste Woche berechnen # 
# Beginn ein Tag später als der Wochenendtag aktuelle Woche #
$az1 = $dz + 1;
# Ende sieben Tag später als der Wochenendtag aktuelle Woche #
$az2 = $dz + 7;
# Wochenanfangstag für 2. Woche errechnen und formatiert in Var speichern #
$wanftag2 = datum("+$az1", "Wochentag, Tag.Monatname.Jahr");
# Wochenendtag für 2. Woche errechnen und formatiert in Var speichern #
$wendtag2 = datum("+$az2", "Wochentag, Tag.Monatname.Jahr");
# Ausgabe der nächsten Woche # 
out "<br> Nächste Woche ist im Zeitraum vom: <br>";
out "<br>",$wanftag2, " bis zum ",$wendtag2;
</perl>