use utf8;

##</code><code>##

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

##</code><code>##

    use open qw( :encoding(UTF-8) :std );