# daemon
use warnings;
use strict;

use SOAP::Transport::TCP;

my $daemon = SOAP::Transport::TCP::Server
  -> new (LocalAddr => 'localhost', LocalPort => 2323, Listen => 5, Reuse => 1)
  -> dispatch_to('/home/jwest/stest')
;

print "Daemon established at ", join(':', $daemon->sockhost, $daemon->sockport), "\n";

$daemon->handle;
__END__