Help for this page
#!/usr/bin/perl ... use open IO => ':locale'; ...
use open IO => ':encoding(UTF-8)';