use utf8::all; binmode STDOUT, 'utf8'; binmode STDERR, ":encoding(UTF-8)"; print 5