binmode STDOUT, ':encoding(UTF-8)';

##</code><code>##

use open OUT => ':encoding(UTF-8)', ':std';