use SOAP::Lite;

my $soap_server = "http://soap.example.com/soap.php";
my $soap = SOAP::Lite->new(proxy => $soap_server, autoresult => 1);

my $data = $soap->fetch_all_infos();

use LWP::UserAgent;
use JSON;

my $body = LWP::UserAgent->new()->get($url)->content;

$body = decode_json($body);

use LWP::UserAgent;
use JSON;

sub cb()
{
    my ($chunk, $response, $protocol) = @_;

#    print "LEN : ".length($chunk)."\n";
     $response->add_content($chunk);
}

my $ua = LWP::UserAgent->new;
my $response = $ua->get($url,
                        ":content_cb" => \&cb,
                     OR ":content_cb" => sub { $_[1]->add_content($_[0]); },
                        ":read_size_hint" => 2**20
    );
die unless $response->is_success;
my $body = decode_json($response->content);