use strict;
use DateTime;
use DateTime::Format::ISO8601;
use Data::Dumper;

my $date1 = DateTime::Format::ISO8601->parse_datetime("2007-10-15T10:10:23");
my $date2 = DateTime::Format::ISO8601->parse_datetime("2007-10-16T10:10:25");

my $delta = $date2-$date1;
print Dumper($delta->deltas), "\n";