Select Code to Download

  my $client = new IO::Socket::SSL(PeerAddr => "servername", PeerPort 
+=> "https", SSL_session_cache_size => 100);
  if (defined $client) {
...
  } else {
      warn "SSL socket problem: ", IO::Socket::SSL::errstr();
  }

my $context = new IO::Socket::SSL::SSL_Context(
  SSL_version => 'tlsv1', 
  SSL_verify_mode => Net::SSLeay::VERIFY_NONE(),
  SSL_session_cache_size => 100
);

my $client = new IO::Socket::SSL(PeerAddr => "servername", PeerPort =>
+ "https", SSL_reuse_ctx => $context);

use IO::Socket::SSL;

...
  SSL_session_cache_size => 100
);
IO::Socket::SSL::set_default_context($context);