Подлый уникод

[nataraj]

Я продолжаю не понимать идеологию применения уникода в перле. Локаль -- уникодная. Текст программы написан в utf-8. use utf8 -- стоит:

use strict;
use utf8;
use Devel::Peek;

my $str = 'José';

Dump $str;
print "\n\n";
print $str;
print "\n\n";

Согласно сообщению от Devel::Peek в строке строка уникодная... флаг UTF8 выставлен. Но на экран все равно выводиться
Jos�

На каком основании ему надо принудительно делать вывод уникодным посредством binmode(STDOUT, ":utf8"); -- я не понимаю...