my $client = new IO::Socket::SSL(PeerAddr => "servername", PeerPort => "https", SSL_session_cache_size => 100);
  if (defined $client) {
      print $client "GET /test/space.gif HTTP/1.0\r\n\r\n";
      my @r = <$client>;
      close $client;
  } else {
      warn "SSL socket problem: ", IO::Socket::SSL::errstr();
  }

##</code><code>##

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

##</code><code>##

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

##</code><code>##

use IO::Socket::SSL;

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