############## Server ############## 
#!perl -w
use strict;
use warnings;

use SOAP::Lite +trace => 'all';
use SOAP::Transport::HTTP;
my $daemon = SOAP::Transport::HTTP::Daemon->new(
	LocalAddr => 'localhost',
	LocalPort => 8001,
	listen => 5
);
$daemon->dispatch_to('Hello');
print "Contact SOAP server at ", $daemon->url, "\n";
$daemon->handle();

package Hello;

sub new {
    my $class = shift;
    my $self = {
        TEXT => "ABC",
	@_,
    };
    bless $self, $class;
    return $self;
}

sub getText {
     my ($self, $arg) = @_;
     return $self->{TEXT};
}

1;


############## Client ############## 
#!perl -w
use strict;
use warnings;

use SOAP::Lite +autodispatch => on_fault => sub {
		my ($soap, $res) = @_;
		print ref $res ? $res->faultstring : $soap->transport->status, "\n";
		return "SOAP_TRANSPORT_ERROR";
	},
	#trace => 'all',
	;
my $uri   = "http://localhost/Hello";
my $proxy = "http://localhost:8001/server.pl";
SOAP::Lite->self->uri($uri)->proxy($proxy);

my $h = Hello->new();
my $output = $h->getText();
print $output . "\n";