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();
  }