a truly 'perlish' way is to grab a module :)

I use Date::Business for this myself, but Date::Calc is an option too.

-- I'm a solipsist, and so is everyone else. (think about it)