Date::Manip can also do these calculations. It also has more flexibility in terms of returning the dates preformatted for you, which is why I use it instead of Date::Calc now.