#!/usr/bin/perl
use strict;
use Date::Manip;

my $start = Date::Manip::ParseDate('2013-10-03 00:00:00');
my $end = Date::Manip::ParseDate('2013-12-09 00:00:00');
print "$start\n";
print "$end\n";

#Standard Days
my $standard_delta = Date::Manip::DateCalc($start,$end,1);
print "$standard_delta\n";
my $standard_days = Date::Manip::Delta_Format($standard_delta,2,%dyd');
print "$standard_days\n";

#Business Days
my $business_delta = Date::Manip::DateCalc($start,$end,2);
print "$business_delta\n";
my $business_days = Date::Manip::Delta_Format($business_delta,2,'%dyd');
print "$business_days\n";