Or, if you happen to have the dates already in timet format, you can just write the subroutine yourself; it's quite short.  It takes less time than downloading any modules, and you have the fun of doing it yourself, as well as learning how to do it.

Here's a working example:

#  Inputs:  $1 ... date 1, as a timet
#           $2 ... date 2, as a timet
#
# Outputs:  $1 ... nonzero if the dates match, ignoring the actual tim
+es
#                  of day for each, zero if they are different.
#
sub same_date {
    my ($timestamp1, $timestamp2) = @_;
    my ($day1, $month1, $year1) = (localtime $timestamp1)[3,4,5];
    my ($day2, $month2, $year2) = (localtime $timestamp2)[3,4,5];
    return ($day1 == $day2 && $month1 == $month2 && $year1 == $year2);
}
[download]