my $soap = SOAP::Lite->new->proxy('https://wsnet.sendwordnow.com/SessionManagement/2010/05/PublicSessionManagementService.svc')
    ->ns('http://schemas.xmlsoap.org/soap/envelope/', 'soapenv')
    ->ns('http://schemas.datacontract.org/2004/07/SWN.Notification.PublicSessionManagement.Contracts.DataContracts', 'swn')
    ->ns('http://schemas.sendwordnow.com/ws/2010/05/PublicSessionManager', 'pub')
;

=pod
my $req =
SOAP::Data->name( RequestOf_PublicLoginReqest => (
        SOAP::Data->name( OperationParameters => (
            SOAP::Data->name( Username => $USERNAME )->prefix('swn'),
            SOAP::Data->name( Password => $PASSWORD )->prefix('swn'),
            SOAP::Data->name( PublicServiceEntryPoint => 'AlertingService' )->prefix('swn')
        ))->prefix('pub')
    )->prefix('pub')
);
=cut

my $user = SOAP::Data->name( Username => $USERNAME )->prefix('swn');
my $pass = SOAP::Data->name( Password => $PASSWORD )->prefix('swn');
my $entr = SOAP::Data->name( PublicServiceEntryPoint => 'AlertingService')->prefix('swn');
my $oper = SOAP::Data->name( OperationParameters => ( $user, $pass, $entr ) )->prefix('pub');
my $reqm = SOAP::Data->name( RequestOf_PublicLoginRequest => $oper )->prefix('pub');

my $res = $soap->call( $reqm );

##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope 
soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" 
xmlns:pub="http://schemas.sendwordnow.com/ws/2010/05/PublicSessionManager" 
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" 
xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" 
xmlns:swn="http://schemas.datacontract.org/2004/07/SWN.Notification.PublicSessionManagement.Contracts.DataContracts" 
xmlns:xsd="http://www.w3.org/2001/XMLSchema" 
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<soapenv:Body>
	<RequestOf_PublicLoginReqest xsi:nil="true" />   #### EMPTY!!! ####
</soapenv:Body>
</soapenv:Envelope>