I like maverick's suggestion better, but here is some code for you to toy with to get the hang of the somewhat hard to get the hang of Date::Calc

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;
[download]

I also recommend getting a copy of the Perl Cookbook, chapter 3 is devoted solely to working with dates.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
F--F--F--F--F--F--F--F--
(the triplet paradiddle)