Настройка локали

При изменении регистра русских букв может возникнуть проблема. Чтобы ее избежать, необходимо правильно настроить локаль (совокупность локальных настроек системы).
Для установки локали используется функция setiocaie(). Функция имеет следующий формат:
setlocale(<Категория>, <Локаль>);
Параметр <категория> может принимать следующие значения:
• lc all — устанавливает локаль для всех режимов;
• lc collate — для сравнения строк;
• lc ctype — для перевода символов в нижний или верхний регистр;
• LC MONETARY — для отображения денежных единиц;
• lc numeric — для форматирования дробных чисел;
• lc time — для форматирования вывода даты и времени.
Примеры:
#!/usr/bin/perl -w
# Выводим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser);
# Настройка локали use locale;
use POSIX "locale_h";
setlocale(LC_CTYPE, "ru_RU.CP1251•);
# Конец настройки локали
print "Content-type: text/html\n\n";
$str = "очень длинная строка";
print uc($str); # ОЧЕНЬ ДЛИННАЯ СТРОКА