Select Code to Download

use Modern::Perl qw /2014/;
my ( $day, $mon ) = ( localtime(time) )[ 3, 4 ];
my @months = qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/;
say "$months[$mon] $day";