use locale;
use POSIX qw (locale_h);
setlocale(LC_CTYPE, 'Russian_Russia.1251');
print lc ('ПРИВЕТ');