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