use strict;
use warnings;
use Encode;
use utf8;

binmode STDOUT, ':encoding(UTF-8)';
my $enc = "utf-8";
system( "chcp 65000" );

# from node http://www.perlmonks.org/?node_id=843144
my $ne = "\xe2\x95\xb1";
my $nw = "\xe2\x95\xb2";

print $ne, $nw, "\n";