Upgrade Breakage of Perl Script

[Peter Abbott]

Hi,

I have a simple perl script which supplies a username and account password
to a server. The server in turn returns a password token for further
operations. The script does not specifically use openssl but the perl
modules LWP::UserAgent and or HTTP::Request must do. The script worked
perfectly up to openssl version 1.0.1e-4.fc19.x86_64. Further upgrades to
1.0.1e-28.fc19 and 1.0.1e30.fc19 just hang somewhere at the handshake stage.

I am only a novice and have a limited understanding of what is going on.
Part of the script is as follows:

#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use HTTP::Request;

my $message = '<?xml version="1.0" encoding="utf-8"?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/";
xmlns:ser="http://service.thirdparty.api.neo.tabcorp.com.au/";>
<soapenv:Header/>
<soapenv:Body>
<ser:authenticateAccount>
<apiMeta>
<deviceId>1000011</deviceId>
<jurisdictionId>2</jurisdictionId>
<requestChannel>1</requestChannel>
<usernamePasswordToken></usernamePasswordToken>
</apiMeta>
<authRequest>
<accountId>xxxxxx</accountId>
<accountPassword>yyyyyyyy</accountPassword>
</authRequest>
</ser:authenticateAccount>
</soapenv:Body>
</soapenv:Envelope>';

my $keyn;
my $userAgent = LWP::UserAgent->new();
my $request = HTTP::Request->new(POST => '
https://api.tab.com.au/tabapi/services/thirdPartyAuthenticate');
$request->header(SOAPAction => '"
http://service.thirdparty.api.neo.tabcorp.com.au/";');
$request->content($message);
$request->content_type("text/xml; charset=utf-8");
my $response = $userAgent->request($request);
if($response->code == 200) {
print $response->as_string;
}
else {
print "zs"
}


Can anyone shed some light on what is happening here or what I can do to
remedy the problem?

Thanks,
Peter.