use open qw( :encoding(utf8) );
        binmode STDIN,  qw{ :encoding(UTF-8) };
        binmode STDOUT, qw{ :encoding(UTF-8) };
        binmode STDERR, qw{ :encoding(UTF-8) };