H:\Perl>chcp
Active code page: 65001

H:\Perl>perl test.pl
Проверка2
�ка2

#!/usr/bin/perl -C -w

use strict;
use warnings;
use utf8;

binmode(STDOUT,':utf8');
print "Проверка2\n";

use utf8;
use Encode;
sub print()
{
  foreach (@_)
  {
    my $str = encode('cp866',$_);
    print "$str\n";
  }
}

#!/usr/bin/perl -C -w

use strict;
use warnings;
use utf8;

binmode(STDIN, ':encoding(cp866)');
binmode(STDOUT,':encoding(cp866)');
print "Аргументы: " . join(' ',@ARGV) . "\n";

H:\Perl>perl test.pl Тест
"\x{00d2}" does not map to cp866 at iptvportal.pl line 23.
"\x{00e5}" does not map to cp866 at iptvportal.pl line 23.
"\x{00f1}" does not map to cp866 at iptvportal.pl line 23.
"\x{00f2}" does not map to cp866 at iptvportal.pl line 23.
Аргументы: \x{00d2}\x{00e5}\x{00f1}\x{00f2}