in reply to I want to know the current week number of the current month

#!/usr/bin/env perl

use strict;
use warnings;
use Date::Calc qw(Today Week_Number);
use feature qw(say);

say Week_Number( Today() );

__END__

[download]

This gives 41 which seems to be right IMHO.

Regards, Karl

«The Crux of the Biscuit is the Apostrophe»

perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

In Section Seekers of Perl Wisdom