mit Time::Local kannst du ein Datum in Epochseconds umwandeln; dann kannst du die obigen rezepte verwenden. Es gibt aber auch noch das Modul Date::Calc, was dir das Rechnen mit Datumsangaben vereinfacht