use SOAP::Lite;
use strict;

my $user="testUser";
my $password="testPassword";
my $notify="true";
my $service_url='http://10.44.66.148:8080/email/EmailWS?wsdl';
#my $service_url='http://webservices.uship.com/uShipsvc.asmx?WSDL';

my $client = SOAP::Lite->service($service_url); 

$client->on_fault(
 sub { # SOAP fault handler
     my $soap = shift;
        my $res = shift;
        # Map faults to exceptions
        if(ref($res) eq '') {
            die($res);
        } else {
            die($res->faultstring);
        }
        return new SOAP::SOM; }
);

my $result = $client->ModifyProfile($user, $password, $notify);
print $result . "\n\n";

use SOAP::Lite;
use strict;

my $user="testUser";
my $password="testPassword";
my $notify="true";
my $service_url='http://10.44.66.148:8080/email/EmailWS?wsdl';
#my $service_url='http://webservices.uship.com/uShipsvc.asmx?WSDL';

my $client = SOAP::Lite->service($service_url); 

$client->on_fault(
 sub { # SOAP fault handler
     my $soap = shift;
        my $res = shift;
        # Map faults to exceptions
        if(ref($res) eq '') {
            die($res);
        } else {
            die($res->faultstring);
        }
        return new SOAP::SOM; }
);

my @params = SOAP::Data->name("ModifyProfile" =>  
  \SOAP::Data->value((
		SOAP::Data->name("user" => 'testUser'),
		SOAP::Data->name("password" => 'testPassword'),
		SOAP::Data->name("notify" => 'true')
		
		
)));

print $result . "\n\n";

<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
  xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema"
  soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
  xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
    <ModifyProfile xmlns="http://test.ua/">
      <user xsi:type="xsd:string">testUser</user>
      <passwordxsi:nil="false" xsi:type="xsd:string">testPassword</password>
      <notify xsi:nil="false" xsi:type="xsd:boolean">true</notify>
    </ModifyProfile>
  </soap:Body>
</soap:Envelope>