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