BEGIN {
    # Code to set $online here.
    # $online = 1 if whatever....
    if ($online)
    {
        use POSIX 'locale_h';                           
        setlocale( LC_ALL, "pt_BR.iso88591" );
    }
}