try Date::Calc module. Specifically the Delta_DHMS method.

This is also answered in the Perl FAQ.

Just a tongue-tied, twisted, earth-bound misfit. -- Pink Floyd