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

out();

sub out {
   print  "$char";
}

##</code><code>##

use threads;
my $char = "\x{30DE}\x{30A4}\x{30AF}";
binmode STDOUT, ":utf8";

my $thr = threads->create(\&foo);
$thr->join;

sub foo {
   print  "$char";
}