[Moscow.pm] Мусор в выводе write()

[Denis Ibaev]

Привет.

Есть такой скрипт:

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

binmode(DATA, ':utf8');
binmode(STDOUT, ':utf8');
write() while (<DATA>);

format STDOUT =
^<<<<<<<<<<<<<<<<<<<~~
$_
.

__DATA__
абв где ёжз ийк лмн опр сту фхц чшщ ъыь эюя

Вывод форматируется как и хотелось бы, однако после вывода каждой
строки дополнительно выводится от одной до нескольких строк всякого
мусора. Происходит это только при работе с UTF-8. Как с этим бороться?

>perl -v
This is perl, v5.10.0 built for MSWin32-x86-multi-thread

-- 
Денис Ибаев