# Calculate number of full weeks this month
$week = int(($mday+1-$wday)/7);
# Add 1 if today isn't Saturday
if ($wday < 6) {$week +=1;}
print "Week $week\n";