1use strict;
2use 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
7use IO::Socket::SSL 'debug0';
8use LWP::Simple;
9
10IO::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);
15print get( 'https://signin.ebay.com' );
16
17
18
19