Select Code to Download

use strict;
use warnings;
...
)[$month];

print $month, "\n";

perl -e 'print +(qw/January February March April May June July August 
+September October November December/)[(localtime)[4]],$/;'