Select Code to Download

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

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