-binmode STDOUT, ":utf8";
-print "\x{65}\x{301}\n";
-use Encode; $parser->parse_string(encode_utf8("<xml>\x{65}\x{301}</xml>"));
+binmode STDOUT, ':encoding(UTF-8)';
+print "\x{65}\x{301}\n";
+$parser->parse_string(encode_utf8("<xml>\x{65}\x{301}</xml>"));