I think the best choice for this would be the module Date::Calc as this will allow you to calculate dates as you require, allowing for leap years etc...
using a mix of all the above Date::Calc, and Time::Local should enable you to knock something together very simply and quickly. All are available for download from the CPAN