use Date::Manip;
my $dt1='2016080100:00:00';
my $dt2='2016123100:00:00';
my $dtopt= DateCalc($dt1,$dt2);
print $dtopt;