Select Code to Download

my $ssl_sock = new IO::Socket::SSL(
    PeerAddr => $host,
...
    Reuse => 1,
    SSL_verify_mode => 0,
    SSL_verifycn_scheme => undef) || warn "Problem establishing SSL so
+cket: " . IO::Socket::SSL::errstr() . "\n";