Need to enforce TLS 1.2 in a PERL script running on AIX platform

What modules are you using for the Rest call?

Noci,

sorry, I am not too familiar with using Perl and the REST call as I pretty much cookbooked this:

/usr/opt/perl5/lib/site_perl/5.10.1/REST/Client.pm

Please let me know if this answers your question

thank you

sorry, here is the module Client.pm (attached)
Client.pm

Server side code enforces TLS level.

Just setup your server side to follow best practices, which currently means forcing only TLSv1.2 + TLSv1.3 + disabling all other protocols.

This means your PERL script must be able to understand TLSv1.2 for a connection to occur.

So primarily a server side config, rather than client side config.

Ok the module is then REST::Client  from perl,
More info can be found here:  https://metacpan.org/pod/REST::Client

AFAICT REST::Client provides no methods to specify this.

Instead it is a wrapper around LWP::Useragent.

You can use that class, or prepare a useragent and pass that to REST::Client.
Along the following:

# Setup the call
   my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0,
                                              SSL_version => 'tlsv12' });

This $ua can then be set in a REST::Client->new({ UserAgent => $ua  ...} )

@David:  thank you for your input, however, the issue is that the Server side  is a site I don't control.  You are correct in that the server side is dictating what they do accept.  The owners of the server side began to enforce TLS 1.2, thus denying all of my client side traffic.  They agreed to roll back their change to allow me to fix my (client side) to send TLS 1.2 .

@noci,
thank you for your input.  I will take a look at this and update you on Monday..

If that's the case, then noci's suggestion will be best.

David,

the developers here understand most of your response, except this portion:

This $ua can then be set in a REST::Client->new({ UserAgent => $ua  ...} )

can you please elaborate?

Can you provide the exact syntax in that line, without the three dots after the $ua variable

@noci,

the developers here understand most of your response, except this portion:

This $ua can then be set in a REST::Client->new({ UserAgent => $ua  ...} )

can you please elaborate?

Can you provide the exact syntax in that line, without the three dots after the $ua variable

You crate a useragent setting Then you pass the created useragent object to the REST::Client when a new object is created.

Here is the description programmers should understand:     https://metacpan.org/pod/REST::Client
and this for LWP:   https://metacpan.org/pod/LWP

the ... can be:

 my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0,
                                              SSL_version => 'tlsv12' });
$client = REST::Client->new({
        host    => 'https://example.com',
        cert    => '/path/to/ssl.crt',
        key     => '/path/to/ssl.key',
        ca      => '/path/to/ca.file',
        useragent => $ua,
        timeout => 10,
    });

Select allOpen in new window

REST::Client uses LWP::UserAgent as a part of it's work.