The core module Time::Piece is associated with the (also core) Time::Seconds ,
which provides the "pretty()" method which should do the job.

Older versions of the module do not have that method, so I have had to hack my own using "can()" to find if pretty exists, and use my hack if not (For systems where I could not upgrade perl/modules).