macos-ncursesw-locale-test

#! /usr/bin/env perl

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, "UTF-8");
binmode STDOUT, ':encoding(utf-8)';
initscr();
noecho();
cbreak();
addstr(0, 0, "testing: привет");
refresh();
my $ch = getch();
endwin();