#! perl -slw
use strict;
use threads;

use open OUT => ':utf8';
#use open ':encoding(utf8)';

print async{ "\x120\x121\x122\x123\n" }->join;