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