Select Code to Download

use IO::Socket::SSL;

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

use IO::Socket;
use IO::Socket::SSL;
use IO::Select;
...
my %client;

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