use warnings;
use strict;
use SOAP::Lite;
use Data::Dumper;

my $soap = SOAP::Lite
    -> proxy('http://172.16.1.20:34/PoetData.svc?wsdl') or print "Can't connect";
    
my $method = SOAP::Data->name('getVarianceByStyle_Pattern_Variance')  or print "Can't connect";


my @params = ( SOAP::Data->name(pstrStyleName => "APA"),
                SOAP::Data->name(pstrPatternName => "Journal"),
                SOAP::Data->name(pstrVarianceName => "Entire journal with doi") )  or print "Can't connect";
                
print $soap->call($method => @params)->result;

my $res= $soap->ADD(16,10);
  if ($res->fault) {
    print $res->faultstring;
  } else {
    print $res->result;
  }