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