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