use strict; 

use XML::Compile::SOAP11; 
use XML::Compile::WSDL11; 
use XML::Compile::Transport::SOAPHTTP; 
use Data::Dumper; 
$Data::Dumper::Indent=1; 

# Query details 
my $inFn='John Smith'; 

#  WSDL URL 
my $WSDL = 'http://iivmware:14500/NameWorksScoring/services/ScoringWebServiceSEIPort?wsdl'; 

# Create service proxy for web service 
my $wsdlXml = XML::LibXML->new->parse_file($WSDL); 
my $soapSrv = XML::Compile::WSDL11->new($wsdlXml); 

my $GNMAFS = $soapSrv->compileClient('analyzeForSearch'); 

# Call specific Webservice 
my ($GNM_ANALYZE_RESULT, $trace ) = $GNMAFS->( 
parameters => { 
name => $inFn, 
alternateThreshold => '65', 
} 
); 
if ( $GNM_ANALYZE_RESULT->{'Fault'} ) { 
die "Server fault: " . $GNM_ANALYZE_RESULT->{'Fault'}->{'faultstring'}; 
} 

print Dumper $GNM_ANALYZE_RESULT;	
print "\n\n ------------------------- \n";	

my $test1 = $GNM_ANALYZE_RESULT->{'analyzeForSearchResponse'}->{'result'}->{'confidence'}; 
my $test2 = $GNM_ANALYZE_RESULT->{'result'}->{'confidence'}; 
my $test3 = $GNM_ANALYZE_RESULT->{'confidence'}; 
my $test4 = $GNM_ANALYZE_RESULT->{'result'}{'confidence'}; 
my $test5 = $GNM_ANALYZE_RESULT->{result}{confidence}; 
my $test6 = $GNM_ANALYZE_RESULT->{confidence}; 
my $test7 = $GNM_ANALYZE_RESULT->{'confidence'}; 
my $test8 = $GNM_ANALYZE_RESULT->{'analyzeForSearchResponse'}{'result'}{'confidence'}; 

print " test1: ".$test1."\n"; 
print " test2: ".$test2."\n"; 
print " test3: ".$test3."\n"; 
print " test4: ".$test4."\n"; 
print " test5: ".$test5."\n"; 
print " test6: ".$test6."\n"; 
print " test7: ".$test7."\n"; 
print " test8: ".$test8."\n"; 

print "\n\n ------------------------- \n";	
my $pete1 = $GNM_ANALYZE_RESULT->{result}; 
my $test9=$pete1->{'confidence'}; 

print " test9: ".$test9."\n"; 
print " pete1: ".$pete1."\n"; 
print "\n\n ------------------------- \n";	
# $trace->printTimings; 
$trace->printRequest; 
$trace->printResponse; 

exit;