Add ARM files

[dh-make-perl] / dev / arm / libio-socket-ssl-perl / libio-socket-ssl-perl-1.16 / example / lwp-with-verifycn.pl

diff --git a/dev/arm/libio-socket-ssl-perl/libio-socket-ssl-perl-1.16/example/lwp-with-verifycn.pl b/dev/arm/libio-socket-ssl-perl/libio-socket-ssl-perl-1.16/example/lwp-with-verifycn.pl
new file mode 100644 (file)
index 0000000..c926a8c
--- /dev/null
+++ b/dev/arm/libio-socket-ssl-perl/libio-socket-ssl-perl-1.16/example/lwp-with-verifycn.pl
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+
+## !!! make sure that Net::SSL never gets loaded, otherwise it will
+## be used instead of IO::Socket::SSL from LWP
+
+use IO::Socket::SSL 'debug0';
+use LWP::Simple;
+
+IO::Socket::SSL::set_ctx_defaults( 
+       SSL_verifycn_scheme => 'www', 
+       SSL_verify_mode => 1,
+       SSL_ca_file => 'verisign.pem', # root CA of verisign
+);
+print get( 'https://signin.ebay.com' );
+
+
+