I have some code that works, but boy o' boy is it ugly.
#!/usr/bin/perl
use POSIX 'strftime';
use strict;
my $m;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
my $curr_mth = sprintf "%2d", strftime('%m', $sec,$min,$hour,$mday,$mo
+n,$year,$wday,$yday,$isdst);
my @month_name = qw(January February March April May June July August
+September October November December);
for ( $curr_mth .. $#month_name) {
print "Month name is: $month_name[$_]\n";
$m++;
}
if ( $m < 12 ) {
for my $n ( 0 .. ($#month_name - $m) ) {
print "Month name is: $month_name[$n]\n";
}
}