$sock = IO::Socket::SSL->new(
  PeerAddr => 'myserver.com',
  PeerPort => '443',
  SSL_verify_mode => 'SSL_VERIFY_NONE')
  || warn "There was a problem: ".IO::Socket::SSL::errostr();