#!/usr/bin/perl -w

# -- Client

use SOAP::Lite
	on_fault => \&faulthandler;

print "Content-type: text/html\n\n";

my @arr = qw(107 foo 101 bar 102 more);

my $result = SOAP::Lite
  -> uri('http://sunri1.example.net/HelloSOAPArray')
  # -> proxy('http://localhost:7890')
  -> proxy('http://sunri1.example.net/cgi-bin/soap/server_soap_array.cgi')
  -> doFuncFoo(1000, 'Hans', 'Muster', \@arr)
  -> result;

print "<h3>Result is:</h3>\n";

foreach (@{$result}) {
	print "- $_<br>\n";
}

sub faulthandler {
  my ($soap, $res) = @_;
  die("*** SOAP Fault: " . $res->faultstring);
}