#!C:\xampp\perl\bin\perl.exe
use strict;
use warnings;
use Date::Calc qw/Week_Number/;
use POSIX qw/strftime/;

my($yy,$mm,$dd)=Today();
my $DATE=strftime "%b %Y", localtime();
my $WEEKNUM=Week_Number($yy, $mm, $dd);

print "It is Week: $WEEKNUM As of $DATE<br />";