Select Code to Download

Select or download this

 
#!/usr/bin/perl

...
);
$req->content($xml_content);
my $resp = $ua->request($req);

Select or download this

 
$ua->ssl_opts(
  SSL_version => '!TLSv1',
...
  SSL_verifycn_scheme => 'http',
  SSL_verifycn_name => 'apisandbox.zuora.com'
);

Select or download this

 
my $context = new IO::Socket::SSL::SSL_Context(
  SSL_version => '!tlsv1',
  );
IO::Socket::SSL::set_default_context($context);

Select or download this

 
[root@one-commerce-vm.cs.qai install]# perl -MIO::Socket::SSL -e 'prin
+t "$IO::Socket::SSL::VERSION\n"'
2.023
...
options:  bn(64,64) rc4(16x,int) des(idx,cisc,16,int) idea(int) blowfi
+sh(idx) 
compiler: gcc -DOPENSSL_THREADS -D_REENTRANT -DDSO_DLFCN -DHAVE_DLFCN_
+H -Wa,--noexecstack -m64 -DL_ENDIAN -DTERMIO -O3 -Wall -DOPENSSL_IA32
+_SSE2 -DOPENSSL_BN_ASM_MONT -DOPENSSL_BN_ASM_MONT5 -DOPENSSL_BN_ASM_G
+F2m -DSHA1_ASM -DSHA256_ASM -DSHA512_ASM -DMD5_ASM -DAES_ASM -DVPAES_
+ASM -DBSAES_ASM -DWHIRLPOOL_ASM -DGHASH_ASM
OPENSSLDIR: "/usr/local/ssl"