my $ctx = Net::SSLeay::CTX_new() 
  or die("Failed to create SSL_CTX $!");
Net::SSLeay::CTX_set_options($ctx, &Net::SSLeay::OP_ALL)
  and ssl_check_die("ssl ctx set options");
my $ssl = Net::SSLeay::new($ctx) 
  or die_now("Failed to create SSL $!");