Perlモジュール libwwwでOut of memory

my $response = $ua->request( HTTP::Request->(GET=>$url) );

my $response = $ua->request( HTTP::Request->(GET=>$url),
		sub {
		my ($chunk, $response) = @_;
		# $chunk を処理する。
		# print $chunk;
});

#!/usr/local/bin/perl -w
use strict;
my $url = 'http://honyaku.yahoo.co.jp/';
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;

my $response;
my $first = 1;
my $zopen = 0;
my $out = *STDOUT;
$ua->request(HTTP::Request->new(GET => $url),
	sub{
		my ($chunk, $response) = @_;
		if ($first) {
			$first = 0;
			if ($response->code != 200) {
				# error
				die "error";
			}
			if ( $response->content_encoding eq "gzip" ) {
				open (Z, "| /usr/bin/zcat")
				or die "can not open zcat: $!";
				$zopen = 1;
				$out = *Z;
			}
		}
		print $out $chunk;
	});
close(Z) if ($zopen);