use strict;
use lib '~/mylib/lib/site_perl/5.6.0';
use Date::Calc qw(      Day_of_Week
                        Day_of_Week_to_Text
                        Days_in_Month
                        Month_to_Text
);

my $searchday = 2; # Tuesday
my $month = 5; # May
my $year = 2002;

my $numdays = Days_in_Month($year,$month);

my $count = 0;

for(my $date=1;$date<=$numdays;$date++) {
        if($searchday == (Day_of_Week($year,$month,$date)) ) {  $count++; }
}

print "There are $count ".Day_of_Week_to_Text($searchday)."s in ".Month_to_Text($month).".\n";