You said it yourself. You want to do a Date::Calculation.

For more in this vein, check out CPAN, the usable FAQ. ;-)