use POSIX qw(strftime setlocale LC_ALL LC_CTYPE); 
my ($loc) = POSIX::setlocale( &POSIX::LC_ALL, 'es_ES.ISO8859-1' ); 
my ($now_string) = strftime "%a %b %e %H:%M:%S %Y", localtime; 
my ($fecBita)    = strftime "%Y-%m-%d %H:%M:%S",    localtime;