Select Code to Download

#!/usr/bin/env perl

...
foreach (0, 65, $hour * 3.5, $day * 376, $day * 365 * 14.7) {
  printf "%10s secs: %s\n", $_, Time::Ago->in_words($_);
}

         0 secs: less than 1 minute
        65 secs: 1 minute
     12600 secs: about 4 hours
  32486400 secs: about 1 year
 463579200 secs: over 14 years