sub PrettyTime {
  my $s = int(shift);
  join(', ', reverse map {my $t = $s % $_->[0]; $s /= $_->[0]; $t.$_->[1].($t > 1 ? 's' : '')} ([60, ' sec'], [60, ' min'], [24, ' hr'], [9999999, ' day']))
}

##</code><code>##

print PrettyTime(1234561)

##</code><code>##

14 days, 6 hrs, 56 mins, 1 sec