Select Code to Download

use DateTime;
my $dt = DateTime->now;
...
print "It is Week: $week As of $date\n";
__END__
It is Week: 2 As of Oct 2017