use locale;
use POSIX qw (locale_h);
POSIX::setlocale( &POSIX::LC_ALL, 'ru_RU.KOI8-R');
if ((uc 'Á') ne 'á') {die "!Koi8-r locale not installed!\n"};