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

my $date1 = '2001/12/25/';  # Dec 25, 2001

my ($d,$m,$y) = (localtime)[3..5];
my $today = join('/', $y+1900, $m+1, $d);

# add x days to date1
my $date2 = join('/',
   Add_Delta_YMD(
      split('/',$date1),  # date 1
      0,0,4               # plus 4 days
   )
);


# compare it to today's date
print "same day\n" if Delta_Days(
   split('/',$date2),
   split('/',$today),
) == 0;