#!/usr/bin/perl
use strict;
use warnings;

use SOAP::Lite;
my $soap = SOAP::Lite->uri('http://localhost/Test')->proxy('http://localhost:8089/');

print 'Returned: ', $soap->return1()->result(), "\n";

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::Daemon
        -> new (LocalPort => 8089, Reuse => 1)
        -> dispatch_to('/opt/scripts/SOAP/lib')
        -> handle;

##</code><code>##

package Test;
use DBI;
sub return1 { return 1; }
1;

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use lib '/opt/scripts/SOAP/lib';
use Test;
print Test::return1(), "\n";