binmode STDOUT, ":encoding(UTF-8)";
print $s;