C:\Users\tblaz\Documents\evelyn>type 2.cyr.pl
#!/usr/bin/perl -w
use 5.011;
...
sub display_html {
use HTML::Entities;
my $html_encoded = encode_entities(shift, '<>&"');
my @html = (
'',
'',
'',
'',
'Мой тест',
'',
'',
$html_encoded // 'Статус — ОК', # soft OR: 0 and empty string accepted
'',
''
);
# to avoid "wide character" warnings:
binmode STDOUT, ':utf8';
print "Content-Type: text/html; charset=utf-8\n\n";
print join("\n", @html);
}