use DateTime;
my $dt = DateTime->now;
my $date = $dt->strftime("%b %Y");
my $week = $dt->week_of_month();
print "It is Week: $week As of $date\n";
__END__
It is Week: 2 As of Oct 2017