open STDOUT, ":encoding(UTF-8)" or die $!; [download]
In reply to Re^2: How to sanely handle unicode in perl? by choroba in thread How to sanely handle unicode in perl? by Sec