#!/usr/bin/perl

use Data::Dumper;
use  SOAP::Lite;
use SOAP::Data::ComplexType;
use ContextType;
my  $soap = new SOAP::Lite
    uri => 'http://my_serv/services/DeliveryWS?wsdl',
    proxy => 'http://my_serv/services/DeliveryWS?wsdl'
  ;

my $request_obj = ContextType_inner->new({Context=>{
                user    => 'jbbec',
                agent    => 1        }});
$soap->soapversion(1.2);
print $soap->changeDeliveryState(\SOAP::Data->value($request_obj->as_soap_data),526101,2)->faultstring;
1;