$doy = (localtime)[7];   # day of year
$wk = int($doy/7);
$wk++ if $doy % 7;