Select Code to Download

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'], [9
+999999, ' day']))
}