#!/usr/bin/perl

use strict;
use Date::Manip;

my $date1 = "2007-10-15 10:10:23";
my $date2 = "2007-10-16 10:10:25";

my $err;
my $date = DateCalc($date1, $date2, \$err);

print "$date\n";