use SG4InvInterfaces::Inventory::InventoryHttpPort;
use SG4InvElements::findSubscribersResponse;
use SG4InvTypes::ArrayOfSubscriber;
use SG4InvTypes::Subscriber;
use Data::Dumper;

    *SOAP::WSDL::Transport::HTTP::get_basic_credentials = sub {
    return ("xxxxxx", "yyyyyyyy);
     };
 my $service = SG4InvInterfaces::Inventory::InventoryHttpPort->new();
 my @subs;
 my $sub = SG4InvTypes::Subscriber->new();

 my $result = $service->findSubscribers( {
           findSubscriberParams =>  { # SG4InvTypes::FindSubscriberParams
             lastName =>  "Merwood"
           },
         },,
        );

 die $result if not $result;
 print $result->_DUMP . "\n";
 print $result. "\n";

 print $result->get_subscribers()->_DUMP . "\n";

 print Dumper($result->get_subscribers()->get_Subscriber) . "\n";
 @subs=$result->get_subscribers()->get_Subscriber;
 print Dumper(@subs) . "\n";