use utf8;
use open OUT => ':encoding(utf8)';
use open ':std';