$loc = 'pt_PT.ISO_8859-1';  # my locale
$ENV{'LANG'} = $loc;
$ENV{'LC_ALL'} = $loc;
$ENV{'LOCPATH'} = '/usr/share/locale';
use locale;
require POSIX;
POSIX::setlocale(&POSIX::LC_ALL, $loc);