Я #$нусь когда-нибудь с этим уникодом!

[nataraj]

use strict;
use XML::LibXML;
use utf8;
binmode(STDOUT, ":utf8");


my $dom = XML::LibXML::Document->new(1.0,'utf-8');
my $root = $dom->createElement('book');
$dom->setDocumentElement($root);
$root->setAttribute('test',  "А...Я");
$root->appendText('Еще что-то по русски');

my $xml = $dom->toString();

print $xml;

Как вы думаете, что она выводит? Вот что:
<?xml version="1" encoding="utf-8"?>
<book test="Ð...Я">ÐÑе ÑÑо-Ñо по ÑÑÑÑки</book>

Патаму что у $xml не выставлен флаг UTF8, блядь!