use Date::Calc qw

all);
use Date::Calendar;
($year,$month,$day) = Today();
my ($sec,$min,$hour,$mday,$mon,$year,
$wday,$yday,$isdst) = localtime time;
$year += 1900;
$mon++;
$week = int(($day + Day_of_Week($year,$month,1) - 2) / 7) + 1;
$dow = Day_of_Week($year,$month,$day);
$DayOfWeek = Day_of_Week_to_Text($dow);
Example:
($month == 11 && $week == 4 && $DayOfWeek eq "Thursday") && do{ # Thanksgiving Day
Hope this helps.