Hallo,
Allerdings kann ich mir nicht ganz schlüssig werden, wie
ich die aktuelle KW errechnen oder abfragen kann.
http://www.salesianer.de/util/kalfaq.html#B3 erklärt wie Du eine Kalenderwoche bestimmst.
und mit Date::Manip gibts ein Modul, daß eine Funktion zur Verfügung stellt, welche die Kalenderwoche ermittelt.
Grüße
Klaus