Gisle Aas

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++;
    }
}

1 POD Error

The following errors were encountered while parsing the POD:

Around line 86:

Unknown directive: =comment




Hosting generously
sponsored by Bytemark