Perl

SSL Client Example

See more Socket/SSL/TLS Examples

Demonstrates how to connect to an SSL server, send a simple message, receive a simple response, and disconnect. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

my $socket = Chilkat2::Socket->new;

my $ssl = 1;
my $maxWaitMillisec = 20000;

# The SSL server hostname may be an IP address, a domain name,
# or "localhost".  You'll need to change this:
my $sslServerHost = '123.123.88.88';
my $sslServerPort = 8123;

# Connect to the SSL server:
my $success = $socket->Connect($sslServerHost, $sslServerPort, $ssl, $maxWaitMillisec);
if (!$success) {
    print $socket->LastErrorText, "\n";
    exit;
}

# Set maximum timeouts for reading an writing (in millisec)
$socket->MaxReadIdleMs(20000);
$socket->MaxSendIdleMs(20000);

# Send a "Hello Server! -EOM-" message:
$success = $socket->SendString('Hello Server! -EOM-');
if (!$success) {
    print $socket->LastErrorText, "\n";
    exit;
}

# The server (in this example) is going to send a "Hello Client! -EOM-"
# message.  Read it:
my $receivedMsg = $socket->ReceiveUntilMatch('-EOM-');
if (!$socket->LastMethodSuccess) {
    print $socket->LastErrorText, "\n";
    exit;
}

# Close the connection with the server
# Wait a max of 20 seconds (20000 millsec)
$success = $socket->Close(20000);

print $receivedMsg, "\n";