Select Code to Download

   my $dtopt= DateCalc($dt1,$dt2,'semi');

use Date::Manip::Date;
my $date1 = new Date::Manip::Date;
...
my $delt  = $date1->calc($date2,'semi');
my $delv  = $delt->value();
print "$delv\n";