binmode *STDOUT, ':encoding(UTF-8)';
# or
use open OUT => ':encoding(UTF-8)', ':std';