perl-curses-russian-utf8

#! /usr/bin/env perl

use strict;
use warnings;
use utf8;
use Curses;
binmode STDOUT, ':encoding(utf-8)';
initscr();
noecho();
cbreak();
addstr(0, 0, "testing: привет");
refresh();
my $ch = getch();
endwin();