macos-encoding-utf8

use strict;
use warnings;
use utf8;
use feature qw(say);
use POSIX qw(locale_h);
use locale;
use Curses;
my $old_locale = setlocale(LC_CTYPE);
say "old locale = ", $old_locale;
setlocale(LC_CTYPE, "");
binmode STDOUT, ':encoding(utf-8)';
my $str = 'привет';
printf "%vX\n", $str;
initscr();
noecho();
cbreak();
addstr(0, 0, "testing: $str");
refresh();
my $ch = getch();
endwin();