Re: Creating SSL socket

[Khen1950fx]

For a first step, let's get your test client up and running:

#!/usr/bin/perl -w

BEGIN {
    $ENV{'AUTOMATED_TESTING'} = 1;
    
    use strict;
    use warnings;
    use CPAN;
    
    CPAN::Shell->install(qw(
        Socket::GetAddrInfo
        Socket6
        LWP::Protocol::https
        IO::Socket::SSL
        IO::Socket::INET6)
    );
}

use strict;
use IO::Socket::SSL qw(debug3);

my $socket = IO::Socket::SSL->new(
    PeerAddr        => 'www.example.com',
    PeerPort        => 443,
    SSL_verify_mode => 0x00,
) or die "failed to connect: $SSL_ERROR";
print "OK: Connected\n";

$socket->autoflush;
$socket->close(
    SSL_no_shutdown => 1, 
    SSL_ctx_free    => 1,    
) or die "not ok: $SSL_ERROR";
print "OK: Closed\n";