use strict;
use warnings;
use JSON;
use 5.010;

# enable terminal's utf8 for me
system("chcp 65001");

# UTF-8
my $h = { euro => pack("CCC", 226, 130, 172) };

say to_json($h);