Select Code to Download

#!/usr/bin/perl
use strict;
...
$ perl test.pl
Thursday, October 12th 2017 is the 2nd Thursday in October 2017.
Just FYI the week number is 41 in 2017.

my $n = int( Delta_Days(
         Nth_Weekday_of_Month_Year($year, $month, $dow, 1),
...
__END__

Number: 2

#!/usr/bin/perl
use strict;
...

$ perl test.pl
Week number: 3