Select Code to Download

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

use open ':std', ':encoding(UTF-8)';  # binmodes STD*
print $s;