my $n = int( Delta_Days(
		 Nth_Weekday_of_Month_Year($year, $month, $dow, 1),
		 $year, $month, $day)
	     / 7) + 1;

say "Number: " . $n;

__END__

Number: 2