#!/usr/bin/perl --

use strict;
use warnings;

use DateTime::Duration;
use DateTime::Format::Human::Duration;

Main( 4, 250, 1.5e4, 4e5, 3e6,       12e6, 1.5e8 );
Main( 4, 250, 1.5e4, 4e5, 3e6 - 4e5, 12e6, 1.5e8 );
exit(0);

sub Main {
  for my $sec (@_) {
    printf "%9d seconds is %s\n", $sec, ToPeriod( seconds => $sec );
  }
} ## end sub Main

sub ToPeriod {
  return DateTime::Format::Human::Duration->new->format_duration(
    DateTime->now - DateTime->now->subtract(@_),
  );
} ## end sub ToPeriod

__END__
        4 seconds is 4 seconds
      250 seconds is 4 minutes and 10 seconds
    15000 seconds is 4 hours and 10 minutes
   400000 seconds is 4 days, 15 hours, 6 minutes, and 40 seconds
  3000000 seconds is 1 month, 3 days, 17 hours, and 20 minutes
 12000000 seconds is 4 months, 2 weeks, 1 day, 21 hours, and 20 minutes
150000000 seconds is 4 years, 9 months, 1 day, 2 hours, 39 minutes, and 58 seconds
        4 seconds is 4 seconds
      250 seconds is 4 minutes and 10 seconds
    15000 seconds is 4 hours and 10 minutes
   400000 seconds is 4 days, 15 hours, 6 minutes, and 40 seconds
  2600000 seconds is 4 weeks, 2 days, 2 hours, 13 minutes, and 20 seconds
 12000000 seconds is 4 months, 2 weeks, 1 day, 21 hours, and 20 minutes
150000000 seconds is 4 years, 9 months, 1 day, 2 hours, 39 minutes, and 58 seconds