I'm surprised no one mentioned Date::Calc yet. It is well geared towards this type of problem and there are even examples that a similar to this problem.

Scott