Sample code for 30+ languages & platforms
Perl

Wait for a Socket to Become Readable

See more Socket/SSL/TLS Examples

Demonstrates Socket.SelectForReading, which waits for read-ready activity on the socket, or on any contained socket when the object is a socket set. It returns 1 if ready, 0 on timeout, or -1 on error.

Background. A timeoutMs of 0 performs a nonblocking poll. With a socket set, this monitors many connections at once for readability.

Chilkat Perl Downloads

Perl
use chilkat();

$success = 0;

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

#  Connect to the server using TLS.
$bTls = 1;
$maxWaitMs = 5000;
$success = $socket->Connect("example.com",5000,$bTls,$maxWaitMs);
if ($success == 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

#  Wait up to 5 seconds for read-ready activity on the socket (or, for a socket set, on any contained
#  socket).  Returns 1 if ready, 0 on timeout, or -1 on error.
$ready = $socket->SelectForReading(5000);
if ($ready < 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

if ($ready != 1) {
    print "No data became available before the timeout." . "\r\n";
    exit;
}

print "The socket has data ready to read." . "\r\n";