# 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;