Sample code for 30+ languages & platforms
Perl

Accept the Next Incoming Connection

See more Socket/SSL/TLS Examples

Demonstrates Socket.AcceptNext, which waits for and accepts the next incoming connection on a listening socket, delivering it as a new connected Socket.

Background. A maxWaitMs of 0 waits indefinitely; a positive value waits up to that many milliseconds. For a TLS listener, acceptance includes the server-side TLS handshake.

Chilkat Perl Downloads

Perl
use chilkat();

$success = 0;

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

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

#  Wait for and accept the next incoming connection on the listening socket.  maxWaitMs = 0 waits
#  indefinitely; a positive value waits up to that many milliseconds.  For a TLS listener, acceptance
#  includes the server-side TLS handshake.
$connectedSock = chilkat::CkSocket->new();
$success = $socket->AcceptNext(20000,$connectedSock);
if ($success == 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

print "Accepted a connection from " . $connectedSock->remoteIpAddress() . "\r\n";