#!/usr/bin/perl -w
use 5.016;
use utf8::all;
#binmode STDOUT, ":utf8";
say "default encoding:";
system "chcp";
say "Привет";
say "------------";
system "chcp 65001";
say "Привет";
__END__