sub new
{
	my ($self, $settings) = (@_);

	die('Server not set for connection settings') 	if(!$settings->{'server'});
	die('Username not set for connection settings') if(!$settings->{'username'});
	die('Password not set for connection settings') if(!$settings->{'password'});
	
	$settings->{'protocol'} 	= ($settings->{'protocol'}) ? $settings->{'protocol'} : "https";
	$settings->{'port'}		= ($settings->{'port'}) ? $settings->{'port'} : "443";
	
	my $proxy_uri = sprintf("https://%s:%s@%s:443/iControl/iControlPortal.cgi", $settings->{'username'},$settings->{'password'},$settings->{'server'});
	
	$self->debug("Connection Settings:\n>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>\n". Dumper($settings)."<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<");
	$self->debug("Connection URI: $proxy_uri");
	
	$soap = SOAP::Lite->proxy($proxy_uri);

	if($soap->fault) {
		print "\nSoap Fault: ".$soap->faultcode." ".$soap->faultstring." ".$soap->faultdetail."\n\n";
  	}

	return $soap;
}

##</code><code>##

Soap Fault: 1 1 1

Members in first pool: 
$VAR1 = bless( {
                 'address' => '1.2.3.4',
                 'port' => '80'
               }, 'Common::IPPortDefinition' );

##</code><code>##

<SOAP-ENV:Envelope
	xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
	xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
	xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<SOAP-ENV:Body>
<SOAP-ENV:Fault>
<faultcode
	xsi:type="xsd:string">SOAP-ENV:Client</faultcode>
<faultstring
	xsi:type="xsd:string">Unknown method &quot;{Unspecified}:faultcode&quot;</faultstring>
</SOAP-ENV:Fault>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>