#!/usr/bin/perl -w

use strict;
use SOAP::Lite +trace => 'debug', maptype => {  };

my $userId = "admin";
my $password = "adminpw";

my $wsdl = "http://10.50.50.132:9080/ws/workflow";

my $gridName = SOAP::Header->name("grid-name" => SOAP::Data->type('' => 'SampleGrid1'));
my $rba = SOAP::Lite->uri('urn:realops.com:amp:workflow')->proxy($wsdl);

my $wsse = "http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd";
my $securityHeader = SOAP::Header->name(
	Security => {
		UsernameToken => {
    		Username => SOAP::Data->type('' => $userId)->prefix('wsse'),
    		Password => SOAP::Data->type('' => $password)->prefix('wsse'),
  		}
	})->uri($wsse)->prefix('wsse');

my $result = $rba->getAllSOAPServices($gridName, $securityHeader)

##</code><code>##

<soap:Header>
	<wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
		<UsernameToken>
			<wsse:Password>adminpw</wsse:Password>
			<wsse:Username>admin</wsse:Username>
		</UsernameToken>
	</wsse:Security>
	<grid-name>SampleGrid1</grid-name>
</soap:Header>

##</code><code>##

<soapenv:Header>
	<wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
		<wsse:UsernameToken>
		    <wsse:Username>admin</wsse:Username>
		    <wsse:Password>adminpw</wsse:Password>
		</wsse:UsernameToken>
	</wsse:Security>
	<grid-name xmlns="urn:realops.com:amp:workflow">SampleGrid1</grid-name>
</soapenv:Header>