#!/usr/local/bin/perl -w
  use strict;
  use warnings;

  use SOAP::WSDL;
  use lib "./base_dir/";
  use MyInterfaces::EfilingWSService::EfilingWSPort;  # generated by 'wsdl2perl.pl'

  my %data = (
             inXML => '<Envelope><Parameters><Method>Person</Method><FirstName>Michael%</FirstName><LastName>Smith%</LastName></Parameters></Envelope>',
                   );

   my $interface = MyInterfaces::EfilingWSService::EfilingWSPort->new();

   my $object = $interface->getOcscData( %data );

   open ( my $out, ">","./soap_respose" ) || die " ! open-59 File: $!";
   print $out "$object\n\n";
   print $out "$interface\n\n";
   close $out;

1;
__END__