use POSIX 'ceil';
my $week = 1 + ceil( ($d - $wday - 1) / 7 );