Help for this page

Select Code to Download

Select or download this

my $socket = IO::Socket::SSL->new(
                        PeerAddr => "$remote_host:$remote_port",
...
                        Proto    => "tcp",       
                        SSL_verify_mode=>0x01
                        ) or die "unable to create socket: $!\n";;