#!/usr/bin/perl


use strict;
use Date::Calc qw(Delta_Days);

my $origd1 = "01-02-2015";
my $origd2 = "05-06-2015";

my @a = split(/-|-/, $origd1, 3);
my @b = split(/-|-/, $origd2, 3);
my @c = join ( ',', reverse @a );
my @d = join ( ',', reverse @b );
print "@c\n";
print "@d\n";

my $difference = Delta_Days(@c, @d);
print "Difference is $difference\n";

 
##</code><code>##

2015,02,01
2015,06,05
Date::Calc::PP::Delta_Days(): Usage: Date::Calc::Delta_Days($year1,$month1,$day1,$year2,$month2,$day2) at ./date_test.pl line 17