Select Code to Download

my $char = "\x{30DE}\x{30A4}\x{30AF}";
binmode STDOUT, ":utf8";
...
sub out {
   print  "$char";
}

use threads;
my $char = "\x{30DE}\x{30A4}\x{30AF}";
...
sub foo {
   print  "$char";
}