#!/usr/bin/env perl

use strict;
use warnings;
use Time::Ago;

my $hour = 60 * 60;
my $day  = 86400;

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

##</code><code>##

         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