If I were restrained to just standard modules, I'd use strftime from the POSIX module to format time-24*60*60. If I wanted a quick hack, I'd use Date::Manip. Otherwise I'd use DateTime.

update: added direct link to strftime. I didn't know you could do that. Thanks Corion.