my $month = lc((split ' ',localtime)[1]);

##</code><code>##

    my @months = qw( jan feb mar apr may jun jul aug sep oct nov dec );
    my $month = $months[ (localtime)[4] ];