Sample code for 30+ languages & platforms
Perl

Move a Connection into Another Socket

See more Socket/SSL/TLS Examples

Demonstrates Socket.TakeConnection, which moves the active connection from one Socket into another. The receiving object first releases any connection it previously held.

Background. Unlike TakeSocket, TakeConnection does not add a member to a socket set. After success, the source socket holds no connection. This is useful for handing an accepted connection to a dedicated handler object.

Chilkat Perl Downloads

Perl
use chilkat();

$success = 0;

$listenSock = chilkat::CkSocket->new();

$success = $listenSock->BindAndListen(5000,25);
if ($success == 0) {
    print $listenSock->lastErrorText() . "\r\n";
    exit;
}

$connectedSock = chilkat::CkSocket->new();
$success = $listenSock->AcceptNext(20000,$connectedSock);
if ($success == 0) {
    print $listenSock->lastErrorText() . "\r\n";
    exit;
}

#  Move the active connection out of connectedSock and into another Socket object.  Unlike
#  TakeSocket, this does not add a member to a socket set.  After success, connectedSock holds no
#  connection.
$handlerSock = chilkat::CkSocket->new();
$success = $handlerSock->TakeConnection($connectedSock);
if ($success == 0) {
    print $handlerSock->lastErrorText() . "\r\n";
    exit;
}

print "Connection moved to the handler socket." . "\r\n";