CPAN has a lot of modules that would be worth using. Date::Calc comes to mind.

You could also do a localtime manipulation as well.... I'd prefer that, myself.