#! perl use strict; use warnings; binmode STDOUT, ':utf8'; # OR: binmode STDOUT, ":encoding(UTF-8)" or die "Can't binmode to UTF-8: $!"; # OR: use open qw( :encoding(UTF-8) :std ); use charnames ':short'; print "\N{greek:Delta} is an upper-case delta.\n"; use charnames qw(cyrillic greek); print "\N{Sigma} and \N{sigma} are Greek sigmas.\n"; print "\N{BE} and \N{be} are Cyrillic bees.\n";