use SOAP::Lite +trace;
use SOAP::Transport::HTTP;
use IO::Socket::SSL;

$daemon = SOAP::Transport::HTTP::Daemon
    -> new (LocalPort => 8001, listen => 5, SSL_server => 1)
    -> dispatch_to(qw(auth));


  print "Contact to SOAP server at ", $daemon->url, "\n";
  $daemon->handle;