Your best bet would be to use the various Date modules on CPAN. More specifically, take a look at Date::Manip and Date::Calc.

Nota Bene I'm not sure if those modules can do what you want, but it'd probably be best to look there first.