use open OUT => qw{:encoding(utf8) :std};