binmode(STDOUT, ":utf8");
my $bytes = pack "CCC", 0xE2, 0x82, 0xAC; 
print $bytes;