#!/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";