perl script error using Crypt::SSLeay with perl"s LWP

------_=_NextPart_001_01C71E16.BA675420
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Folks,

I have a Perl script that uses LWP and connects to a web page via 443
SSL for availability
=20
All of the sudden the script stopped working and of course I didn't =
change
anything.
The web guys told me they renewed the certificate. Could that be the =
reason it
is now failing?
=20
I get a "Dr. Watson" like error now complaining about SSLEAY
=20
Any way for me to make this work with the new cert?

Do I need to import the new cert and get rid of the old one? If so =
how?
=20
Script snippet:
$ua =3D LWP::UserAgent->new;
$ua->agent("" . $ua->agent);
$ua->cookie_jar(HTTP::Cookies->new(file =3D> =
"lwpcookies.txt",autosave =3D> 1));
print "Checking $url/login.jsp......" if $dbug;
push @TSLOG, "Checking $url/login.jsp......";
$req =3D HTTP::Request->new(GET =3D> "$url/login.jsp");
$req->authorization_basic($pnuname, $pnpass);
@step1 =3D $ua->request($req)->as_string;
print "Step1-->$step1[0]\n\n" if $dbug;
if ($step1[0] =3D~ /