Select Code to Download

    use DateTime;
    use DateTime::Format::ISO8601;
...
    for (qw< months days minutes seconds nanoseconds >) {
        printf "%12s : %5d | %-5d\n", $_, $sub->{$_}, $days->{$_};
    }

       Value     sub | days
---------------------+--------
...
     seconds :     3 | 0
 nanoseconds :     0 | 0