use strict;
use SOAP::Lite;
use Smart::Comments;

use SOAP::Lite +trace => qw (debug);
my $resp;

my $PartnersWS = SOAP::Lite->service('http://127.0.0.1/UWSAWeb/services/WSServicee?wsdl');

my $namespace ="http://service.com";
my $params =
    SOAP::Data
    ->type('WSCriacaoInput')
    ->name('input' =>
	   \SOAP::Data->value(
			      SOAP::Data->name('Key' => '05555555'),
...,
			      SOAP::Data->name('Title' => 'Titulo'),
			      )

	   );

$resp = $PartnersWS->invokeWSService( $params );