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";