You could have a look at Date::Calc which allows for a lot of date related transformations.

Hope this helps, -gjb-