Have you had a look at Date::Calc or Date::Manip? They provide a lot of useful function for manipulating dates (eg deltas).

rdfield