6 lines
167 B
Perl
6 lines
167 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
my $month = 3;
|
||
|
|
print qw(January February March April May June July August September October November December)[$month];
|