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