vcs.maemo.org Git - dh-make-perl/blob - dev/i386/libio-socket-ssl-perl/libio-socket-ssl-perl-1.16/example/lwp-with-verifycn.pl

   1 use strict;
   2 use warnings;
   3
   4 ## !!! make sure that Net::SSL never gets loaded, otherwise it will
   5 ## be used instead of IO::Socket::SSL from LWP
   6
   7 use IO::Socket::SSL 'debug0';
   8 use LWP::Simple;
   9
  10 IO::Socket::SSL::set_ctx_defaults(
  11         SSL_verifycn_scheme => 'www',
  12         SSL_verify_mode => 1,
  13         SSL_ca_file => 'verisign.pem', # root CA of verisign
  14 );
  15 print get( 'https://signin.ebay.com' );
  16
  17
  18