# define the routines ...
sub return_sumfink {

  #do something

}

# and 

$daemon = SOAP::Transport::HTTP::Daemon
           -> new(LocalAddr => $host, LocalPort => $port,          
                  Reuse => 1)
           -> dispatch_to('return_sumfink','aFunction')
$daemon->handle;

##</code><code>##

$s = SOAP::Lite
     ->proxy("http://$machine:$port")
     ->on_fault(sub{});
$r = $s->test_connection;
unless (defined $r && defined $r->envelope) {
  return 'NOGO:', $s->transport->status, "\n";
}

return $s->call(@_)->result;

##</code><code>##

use SOAP::Lite +autodispatch =>
               uri=>'ExternalIO',
               proxy=>'http://localhost:8081';

$hi = return_sumfink('scalar');
print $hi . "\n";