Help for this page

Select Code to Download

Select or download this

use strictures;
use DateTime;
use DateTime::Format::Human::Duration;
...
my $span = DateTime::Format::Human::Duration->new();
my $dur = $now - $hire;
print $span->format_duration($dur), $/;

Select or download this
```
2 months, 3 weeks, and 5 days
```