perl 5.8 での http-client

binmodeにしないと、化けた。なんでだろう?utf-8じゃないの?

use Net::HTTP;
my $s = Net::HTTP->new(Host => "blog.livedoor.jp") || die $@;
$s->write_request(GET => "/openordie/index.rdf", 'User-Agent' => "Mozilla/5.0")
;
my($code, $mess, %h) = $s->read_response_headers;
open(FILE,">test.xml");
binmode FILE;
while (1) {
my $buf;
my $n = $s->read_entity_body($buf, 1024);
last unless $n;
print FILE $buf;
}
close(FILE);