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