use strict;

use Data::Dumper;
use SOAP::Lite ;

my $s = SOAP::Lite->new(
        proxy => "http://sv-websvc-t1:9080/UAASCIAMWebServices/services/UAASPort",
        uri => undef,
);
$s->autotype(0)->readable(1);
$s->ns("http://associate.insidecarefirst.com/ciamservices/service/uaas_types", "uaas_types");
$s->ns("http://www.carefirst.com/ciam/services/uaas", "uaas");
$s->ns("http://associate.insidecarefirst.com/ciamservices/service/ciam_types", "ciam_types");
$s->default_ns('');

my $r = $s->call("uaas:getContractorProfileInput",
                SOAP::Data->name('uaas_types:userName')->value('aaa3644')
);

#print "dump: ", Dumper($r), "\n";
die "faultstring:", $r->fault->{faultstring} if ($r->fault);
print "result:",  Dumper($r->result), "\n";