Select Code to Download

use strict;
use warnings;

...
my @date = ( 2006, 1, 1 );

print Week_of_Year( @date );