Help for this page

Select Code to Download


  1. or download this
    my $client = IO::Socket::SSL->new("xyz.com:https")
            || warn "I encountered a problem: ".IO::Socket::SSL::errst
+r();
...
print $client "Cookie: $cfid $cftoken \n\n";

print <$client>;
  2. or download this
    Net::SSLeay::ssl_write_all(blib/lib/Net/SSLeay.pm (autosplit into blib
+/lib/auto/Net/SSLeay/ssl_write_all.al):1654):
1654:           $wrote = write_partial($ssl, $written, $to_write, $$da
+ta_ref);
  DB<2>
[app_user@sandhost perl]$