Select Code to Download

#! /usr/bin/perl
use warnings;
use strict;
...
    $dt->add(hours => 24 * ($jd_to_convert - $days));
    say "date is $dt";
}

date is 2015-07-01T14:13:31
date1 is 1
...
date is 2015-07-01T14:23:20
date3 is 1
dur is 0