#!/usr/bin/perl
use POSIX 'strftime';

use strict;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
my $curr_mth = sprintf "%2d", strftime('%m', $sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);

my @month_name = qw(January February March April May June July August September October November December);

        for my $m ( 0 .. $#month_name) {
                print "Month name is: $month_name[$m]\n";
        }

##</code><code>##

Month name is: October
Month name is: November
Month name is: December
Month name is: January
Month name is: February
Month name is: March
Month name is: April
Month name is: May
Month name is: June
Month name is: July
Month name is: August
Month name is: September

##</code><code>##

Month name is: November
Month name is: December
Month name is: January
Month name is: February
Month name is: March
Month name is: April
Month name is: May
Month name is: June
Month name is: July
Month name is: August
Month name is: September
Month name is: October