use HTTP::Request::Common qw(GET);

$ua = LWP::UA->new;

$res = $ua->start_request(GET "http://localhost/slowdata.cgi");

print $res->as_string, "----\n";

if ($res->is_success) { my $c; my $i = 1;

    while (defined($c = $res->readline)) {
        print "Chunk$i: $c";
        $i++;
    }
}