Date::Calc should be able to do what you're needing. Of course, you'll still need to fit it into whatever session data structure you're using.

If things get any worse, I'll have to ask you to stop helping me.