open (local *STDOUT,'>:utf8',\(my $b="\x{FEFF}"));