Select Code to Download

my $t1 = DateTime->new(year => 2001,
                        month => 4,
                        day => 23,
...
$delta = $delta % 86400;
my $hours = int($delta / 3600);
$delta = $delta % 3600);