use strict;
use warnings;

use Net::SSL(); 

BEGIN
{
        $Net::HTTPS::SSL_SOCKET_CLASS = "Net::SSL"; 
        $ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;

        $ENV{HTTPS_PROXY} = 'http://<proxyip>:<proxyport>';
}

use LWP::UserAgent;
use XML::Simple qw(:strict);
#use XML::Simple;
use Data::Dumper;

my $url         = 'https://<ip>:<port>/<webservice>?ip=10.11.13.10&servers=10.7.11.7';
my $ua          = LWP::UserAgent->new();
my $req         = HTTP::Request->new('GET', $url);
my $res         = $ua->request($req);

my $config      = XMLin($res->content(), KeyAttr => { dict => 'key' }, ForceArray => [ 'dict', 'value' ]);

print "status:  " , $config->{dict}->{status}->{value}->[0] , "\n";
print "subnet:  " , $config->{dict}->{data}->{list}->{dict}->{subnet}->{value}->[0] , "\n";
print "netmask: " , $config->{dict}->{data}->{list}->{dict}->{netmask}->{value}->[0] , "\n";
print "gateway: " , $config->{dict}->{data}->{list}->{dict}->{gateway}->{value}->[0] , "\n";


##</code><code>##

<root>
<dict key="status">
<value>success</value>
</dict>
<dict key="data">
<list>
<dict key="subnet">
<value>10.11.14.0</value>
</dict>
<dict key="gateway"><value>10.11.13.1</value>
</dict>
<dict key="cidr"><value>10.11.14.0/21</value>
</dict>
<dict key="netmask"><value>255.255.248.0</value>
</dict>
<dict key="subnet"><value>10.11.15.0</value>
</dict>
<dict key="gateway"><value>10.11.13.1</value>
</dict>
<dict key="cidr"><value>10.11.15.0/24</value>
</dict>
<dict key="netmask"><value>255.255.255.0</value>
</dict>
<dict key="subnet">
<value>10.15.8.0</value>
</dict>
<dict key="gateway">
<value>10.11.13.1</value>
</dict>
<dict key="cidr">
<value>10.15.8.0/22</value>
</dict>
<dict key="netmask">
<value>255.255.252.0</value>
</dict>
<dict key="subnet">
<value>10.7.17.22</value>
</dict>
<dict key="gateway">
<value>10.11.13.1</value>
</dict>
<dict key="cidr">
<value>10.7.17.224/28</value>
</dict>
<dict key="netmask">
<value>255.255.255.240</value>
</dict>
<dict key="subnet">
<value>10.11.24.0</value>
</dict>
<dict key="gateway">
<value>10.11.13.1</value>
</dict><dict key="cidr">
<value>10.11.24.0/24</value>
</dict><dict key="netmask"
><value>255.255.255.0</value>
</dict>
</list>
</dict>
<dict key="exitCode">
<value>0</value>
</dict>
</root>