BEGIN {                                            ##
                                                   ##      
   use locale;                                     ##   
                                                   ##         
   eval "use POSIX ('locale_h')";                  ##
   eval "setlocale( LC_ALL, 'pt_BR.iso88591' )";   ##
                                                   ##
}                                                  ##