use open qw/:std :utf8/;
use open OUT => ':encoding(UTF-8)', ':std';