use open OUT => qw{:encoding(UTF-8) :std};