use Date::Manip;
# This would give you h:m:s difference
Delta_Format(DateCalc($day1, $day2), 2, '%hh h:%mv m:%sv s');