Select Code to Download

#!/usr/bin/perl
use strict;
...
my $soap = SOAP::Lite->uri('http://localhost/Test')->proxy('http://loc
+alhost:8089/');

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

#!/usr/bin/perl
use strict;
...
        -> new (LocalPort => 8089, Reuse => 1)
        -> dispatch_to('/opt/scripts/SOAP/lib')
        -> handle;

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

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