#!/usr/local/bin/perl

use strict;
use warnings;
use Data::Dumper qw<Dumper>;

#use SOAP::Lite trace=>'all';
use SOAP::Lite +trace =>'debug';
#use SOAP::Lite;

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME}=0;
use Data::Dumper; $Data::Dumper::Terse = 1; $Data::Dumper::Indent = 1;

#my $wsdl               = 'https://dev1:2001/ACTS?wsdl';
my $endpoint    = 'https://qa1:2001/ACTS';
my $wsdl        = 'HTTPS://QA1:2001/ACTS?wsdl';
my $method_name = 'impl:getCodes';
my $uri         = 'http://impl.webservice.acts.ito.aoc.nj';
my $ns          = 'http://impl.webservice.acts.ito.aoc.nj';

my $client = SOAP::Lite->new(
              proxy=>$endpoint,
              service=>$wsdl,
              readable=>1
            );
    $client->outputxml(1);
    $client->envprefix('soapenv');
    $client->ns($uri,'impl');
    $client->outputxml('true');

my @param;
push @param, SOAP::Data->name("codeTable"=>'STATE_CODES');

my $soapResp = $client->call($method_name,@param);
print $soapResp;
print "\n";