use strict;
use DateTime::Precise;
my $t1 = DateTime::Precise->new('2003. 3.26 16:14:13.8167');
my $t2 = DateTime::Precise->new('2003. 3.26 16:23:14.6152');
my $average = $t1 + ($t2 - $t1)/2.0;