Select Code to Download

use DateTime qw( );

...

   print format_duration($dt - $now), "\n";
}

use DateTime::Duration qw( );

...

   print format_duration($dur), "\n";
}

sub human_list {
   my $last = pop;
...

   return @parts ? 'in ' . human_list(@parts) : 'now';
}