Select Code to Download

my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1 });
#                              ~~~~~~~~~~~
open my $fh, "<:encoding(utf8)", "test.csv" or die "test.csv: $!";
#              ~~~~~~~~~~~~~~~

#!/usr/bin/perl
use strict;
...
my $structure = decode_json($encoded);
binmode *STDOUT, ':encoding(UTF-8)';
say $structure->{'yellow horse'};