my $hHTTP;

  my $hDaemon = HTTP::Daemon::SSL->new(LocalPort => 8001, 
			SSL_key_file => $curDir . "/certs/server-key.pem",
			SSL_cert_file => $curDir . "/certs/server-cert.pem" )
		 || die "Can't start SSH Daemon. $!\n";

	my $soap = SOAP::Transport::HTTP::Server
		-> new ( )
		-> dispatch_to(qw(auth));

  while ($hHTTP = $hDaemon->accept) 
	{
      while (my $request = $hHTTP->get_request) 
			{
				my $req =  $request->{_headers}{soapaction};


				$soap->request($request);
				$soap->handle();


				my $response = $soap->response();
                                $hHTTP->send_response($response);

      }
      $hHTTP->close();
  }