use Date::Format;

print &time2str("%H:%M:%S", ($time2 - $time1));