perl -d:Trace -e " eval q{  use open qw/ :std :encoding(utf8) /; use Test::Exception; }; warn $@ "   2>2


perl -MCarp::Always -e "  use open qw/ :std :encoding(UTF-8) /; use Test::Exception; "


perl -e "  use open qw/ :std :encoding(UTF-8) /; use Test::Exception; "