Tuna alread mentioned Date::Calc. You also might want to check out Date::Manip. I've used it fairly extensively for problems like you mentioned above and its always done the job.

----
Coyote