use IO::Socket::SSL;

my $client = IO::Socket::SSL->new(PeerAddr => 'destination.server.com', PeerPort => 12345, Proto => 'tcp');


##</code><code>##

use IO::Socket;
use IO::Socket::SSL;
use IO::Select;
use constant PORT    => 43968;

my %client;

my $socket = IO::Socket::SSL->new(LocalPort => PORT, Listen => SOMAXCONN, Proto => 'tcp', SSL_key_file => "./myserver.key", SSL_cert_file => "./myserver.cert", SSL_server => 1, Reuse => 1);