#!/usr/bin/perl -w

use strict;

use Date::Manip;

my $curmonth = &UnixDate("today","%b");

my $date1=&ParseDate("today");
my $date2=&ParseDate("last sunday in $curmonth");
my $flag=&Date_Cmp($date1,$date2);
if ($flag<0) {
           # date1 is earlier
} elsif ($flag==0) {
           # the two dates are identical
} else {
           # date2 is earlier
}