This one also doesn´t work... I am beggining to think about suicide!

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

PS: no errors generated, just the incorrect default locale that remains set.