Re: 16.pl:

Except for the newlines (see note 3, below), this works for me (on Windows):

#! 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";
[download]

Output:

14:08 >chcp 65001
Active code page: 65001

14:08 >perl 683_SoPW.pl
Δ is an upper-case delta.

Σ and σ are Greek sigmas.

Б and б are Cyrillic bees.


14:08 >

Notes:

1. “Cyrillic” has two letter Ls.

2. You need to specify UTF8 for the output: see binmode.

3. For some reason, newlines are printing double. I’ve tried printing \x0A, etc., but so far haven’t found any way to fix this. :-(

Hope that helps,