В главном скрипте:
use locale;
use POSIX qw(locale_h);
setlocale(LC_CTYPE => \'ru_RU.CP1251\'); (где ru_RU.CP1251 - желаемая локаль, setlocale возвращает это же значение, если установка локали произошла удачно)
В модулях(если надо):
use locale; (результат работы setlocale в главном скрипте, распространяется на все модули, где есть эта строчка)