Help for this page

Select Code to Download


  1. or download this
    $sock = IO::Socket::SSL->new(
  PeerAddr => 'myserver.com',
...
  SSL_verify_mode => 'SSL_VERIFY_NONE')
  || warn "There was a problem: ".IO::Socket::SSL::errostr();
  2. or download this
    sub senddata
{
  if ($debug) { print ">> @_"; }
  print $sock @_;
}
  3. or download this
    $contlen=length($content);
&senddata("POST /login.aspx HTTP/1.1\r\n");
&senddata("Host: myserver.com\r\n");
&senddata("Connection: keep-alive\r\n");