#!/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($_);
}