#!/usr/bin/perl --
use Path::Class;
use constant THISFILE => file( __FILE__ )->absolute->stringify;
use constant THISDIR  => file( THISFILE )->dir->stringify;

use strict;
use warnings;

use SOAP::Simple;
use Data::Dumper;

use autodie qw/ chdir /;
chdir THISFILE;

#~ http://search.cpan.org/~markov/XML-Compile-1.21/lib/XML/Compile/FAQ.pod
use Log::Report mode => 'DEBUG';
use LWP::Simple qw/ mirror /;

my $wsdlurl  = 'https://10.16.47.116/Efiling/EfilingWS?wsdl';
my $wsdlfile = 'EfilingWS.wsdl';

-e $wsdlfile or mirror( $wsdlurl, $wsdlfile );

my $soap = SOAP::Simple->new( $wsdlfile );

my ($answer, $trace) = $soap->getOcscData(
    Method => 'Person',
    FirstName => 'Michael%',
    Lastname => 'Smith%',
);

$trace->printRequest;

print Dumper($answer),"\n";
print Dumper($trace),"\n";