perldoc -f localtime
perldoc Date::Calc

Eigentlich bin ich kein Fan von RTFM. Aber du stellst nicht wirklich eine Frage weil du etwas wissen möchtest sondern weil wir dir ein Programm schreiben sollen. Zumindest kommt es so an bei mir. Wir wollen dir gerne dabei helfen Perl zu lernen. Wenn wir jedoch für dich die sache scheiben lernst du nicht wirklich etwas.

Hast du schon einen Ansatz bei dem wir dir vielleicht weiter helfen können? Code Schnipsel?

Gruß Alex