BEGIN {                                            ##
                                                   ##      
   use locale;                                     ##   
                                                   ##
   unless ( $ENV{REMOTE_ADDR} eq "127.0.0.1" ) {   ##
                                                   ##
      use POSIX ('locale_h');                      ##
      setlocale( LC_ALL, "pt_BR.iso88591" );       ##
                                                   ##      
   }                                               ##
                                                   ##   
}