my $dt = DateTime->new(year=>$year, month=>11, day=>22); $dt->add(days=>(4 - $dt->dow())%7);