Date::Manip and Date::Calc come to mind.
Date::Calcs Add_Delta_Days subroutine.

($year,$month,$day) = Add_Delta_Days($year,$month,$day,$Dd); #$Dd can 
+be negative, no??
[download]

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.