#!/opt/perl5/bin/perl
use SOAP::Lite +trace;
use SOAP::MIME;
use MIME::Entity;

$SOAP::Constants::DO_NOT_USE_CHARSET = 1;

my $cid = "Test";

my $ent = MIME::Entity->build(Boundary => "soap-boarder", Type => "multipart/related", 'Content-Id' =>"<$cid>");


print SOAP::Lite
        -> uri('http://www.3gpp.org/ftp/Specs/archive/23_series/23.140/schema/REL-5-MM7-1-2')
        -> on_action(sub { return "\"\""; })
        -> proxy('http://10.236.137.7:10021/vas_soap')
        -> parts($ent)
        #-> SubmitReq(SOAP::Data->name("MM7Version" => '5.3.0'))
        -> result;