There are some useful modules on CPAN to help you here. See sundialsvc4's post here Re: get remaining hours. Date::Simple provides simple data arithmetic which is what you need. http://search.cpan.org/~izut/Date-Simple-3.03/lib/Date/Simple.pm