binmode STDOUT,":utf8";
#!/usr/bin/perl use strict; use warnings; binmode STDOUT,":utf8"; print "\x{470} is a Cyrillic capital Psi\n";