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

# -- Server
# -- SOAP::Lite

use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI
  -> dispatch_to('HelloSOAPArray')
  -> handle;

package HelloSOAPArray;

sub doFuncFoo(%) {
	my ($class, $id, $first, $last, $in_arr) = @_;

	my $res = "ID: $id / $first $last ";

	foreach (@{$in_arr}) {
		$res .= "[$_] ";
	}

	if ($in_arr->[0] == 100) {
		die SOAP::Fault
			->faultcode('Server.Custom') # will be qualified
                 	->faultstring('Sorry. I died in server method foo')
                 	->faultdetail(bless {code => 1} => 'BadError')
                 	->faultactor('http://www.soaplite.com/custom');
	}

	my @arr = qw();

	$arr[0] = 200;
	$arr[1] = $res;

	return \@arr;
}

__END__

Failed to access class (HelloSOAP): Can't locate HelloSOAP.pm in @INC (@INC contains:) at (eval 93) line 3.