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();
  }


##</code><code>##

  use SOAP::Lite +autodispatch =>
        proxy => 'https://testbed.org:8001/',
        on_fault => \&handle_fault;


my $obj = auth->new();

##</code><code>##

sub new
{
        my $pkg = shift;
        my $self = {};
        bless ($self, $pkg);

        return $self;
}