or

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

or

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

jdporter
The 6th Rule of Perl Club is -- There is no Rule #6.