use DateTime::Format::Human::Duration qw( );

my $formatter = DateTime::Format::Human::Duration->new();

sub format_duration {
   my ($dur) = @_;
   return $formatter->format_duration($dur,
        past   => '%s ago', 
        future => 'in %s', 
        no_time=> 'now',
   );
}