$rp{'ca_cert_file'} = 'rootCA.pem';  
	$rp{'ca_cert_dir'} = '.';
	$rp{'SSL_cert_file'} = 'client.crt';
	$rp{'SSL_key_file'} = 'client.key';

##</code><code>##

    my $self = {
        logger       => '',
        user         => $params{user},
        password     => $params{password},
        timeout      => $params{timeout} || 180,
        ssl_set      => 0,
        no_ssl_check => $params{no_ssl_check},
        ca_cert_dir  => $params{ca_cert_dir},
        ca_cert_file => $params{ca_cert_file},
	SSL_cert_file => $params{SSL_cert_file},
	SSL_key_file => $params{SSL_key_file},
    };
    bless $self, $class;

##</code><code>##

            $self->{ua}->ssl_opts(SSL_ca_file => $self->{ca_cert_file})
                if $self->{ca_cert_file};
            $self->{ua}->ssl_opts(SSL_ca_path => $self->{ca_cert_dir})
                if $self->{ca_cert_dir};
            $self->{ua}->ssl_opts(SSL_cert_file => $self->{SSL_cert_file})
                if $self->{SSL_cert_file};
            $self->{ua}->ssl_opts(SSL_key_file => $self->{SSL_key_file})
                if $self->{SSL_key_file};