my $t1 = DateTime->new(year => 2001,
                        month => 4,
                        day => 23,
                        hour => 22,
                        minute => 32);
my $t2 = DateTime->new(year => 2001,
                        month => 4,
                        day => 22,
                        hour => 15,
                        minute => 42);
my $delta = $t1->subtract_datetime_absolute($t2)
my $days = int($delta / 86400);
$delta = $delta % 86400;
my $hours = int($delta / 3600);
$delta = $delta % 3600);