use strict;
use warnings;
use SOAP::Lite;
use Devel::Dwarn;

{
    no warnings 'redefine';
    *Data::Dumper::qquote = sub { qq{"$_[0]"} };
}

sub SOAP::Transport::HTTP::Client::get_basic_credentials {
    return "hinemos" => "hinemos";
}

my $wsdl   = 'file:MonitorAgentEndpoint.wsdl';
my $client = SOAP::Lite->service($wsdl);
Dwarn $client->getAgentList({});

__END__