print sec2human(196364), "\n"; sub sec2human { my $secs = shift; if ($secs >= 365*24*60*60) { return sprintf '%.1fy', $secs/(365*24*60*60) } elsif ($secs >= 24*60*60) { return sprintf '%.1fd', $secs/( 24*60*60) } elsif ($secs >= 60*60) { return sprintf '%.1fh', $secs/( 60*60) } elsif ($secs >= 60) { return sprintf '%.1fm', $secs/( 60) } else { return sprintf '%.1fs', $secs } }