Sorry my message was lacking.

The module is currently available here: https://github.com/mla/time-ago

Namespace suggestions welcome. I also put it on PrePan http://prepan.org/module/nY5Y569jtrb

Some examples of what approximate means:

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

Output:

         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
[download]

The precise rules are detailed on the github page.