Script using LWP suddenly not working...

Hello -

I've been using LWP to connect to a https server and pull some  
information. This worked fine in the past, but recently I've been  
getting the

'client-ssl-warning' => 'Peer certificate not verified',

error. I've looked around on the web to find some answers, but mainly  
I find a lot of unanswered cries for help.

I think that I need to set the:

$ENV{HTTPS_CA_FILE} = "some_file";

variable of SSLeay, but I'm not sure what it should be set to.

Any help you could give would be very welcome!

Thanks!



VAR1 = bless( {
                  '_protocol' => 'HTTP/1.1',
                  '_content' => '<?xml version=\'1.0\' standalone=\'yes 
\'?>
<error message="Incorrect or missing input. Please see &lt;a  
href=&quot;http://www.exposuremanager.com/api-doc/index.html&quot;&gt;the 
  API documentation&lt;/a&gt; for details"  
session_id="1ee0faae5878a4d0e679a9e0103d92e9" />
',
                  '_rc' => '200',
                  '_headers' => bless( {
                                         'connection' => 'close',
                                         'client-response-num' => 1,
                                         'set-cookie' =>  
'EM_LA_SESSIONID=1ee0faae5878a4d0e679a9e0103d92e9; path=/;  
expires=Wed, 11-Jun-2008 12:07:32 GMT',
                                         'date' => 'Tue, 10 Jun 2008  
12:07:32 GMT',
                                         'vary' => 'User-Agent',
                                         'client-ssl-cert-issuer' => '/ 
C=US/O=Equifax Secure Inc./CN=Equifax Secure Global eBusiness CA-1',
                                         'client-ssl-cipher' => 'DHE- 
RSA-AES256-SHA',
                                         'client-peer' =>  
'66.254.91.234:443',
                                         'client-date' => 'Tue, 10 Jun  
2008 01:48:25 GMT',
                                         'client-ssl-warning' => 'Peer  
certificate not verified',
                                         'content-type' =>  
'application/xml; charset=utf-8',
                                         'via' => '1.1 www.exposuremanager.com 
',
                                         'client-ssl-cert-subject' =>  
'/C=US/O=www.exposuremanager.com/OU=3869535594/OU=See www.geotrust.com/resources/cps 
  (c)07/OU=Domain Control Validated - QuickSSL(R)/CN=www.exposuremanager.com 
',
                                         'client-transfer-encoding' =>  
'chunked',
                                         'server' => 'Apache/2.2.8  
(Unix) mod_perl/2.0.4 Perl/v5.10.0'
                                       }, 'HTTP::Headers' ),
                  '_msg' => 'OK',
                  '_request' => bless( {
                                         '_content' => '
             <auth>
                 <login>example</login>
                 <password>xxxxxxxxxxxxxxx</password>
             </auth>
         ',
                                         '_uri' => bless( do{\(my $o =  
'https://example.exposuremanager.com/rest/login')}, 'URI::https' ),
                                         '_headers' => bless( {
                                                                'user- 
agent' => 'libwww-perl/5.812',
                                                                 
'content-type' => 'application/xml',
                                                                 
'content-length' => 145
                                                              },  
'HTTP::Headers' ),
                                         '_method' => 'POST'
                                       }, 'HTTP::Request' )
                }, 'HTTP::Response' );