Help for this page
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] ];
www.com | www.net | www.org
No recent polls found