#!/usr/bin/perl use strict; use warnings; use Time::Seconds; my $t = Time::Seconds->new( 12345678 ); print $t->pretty; __END__ #### 142 days, 21 hours, 21 minutes, 18 seconds