# Create a socket
$sockSel = new IO::Select( $servSock );

while ( @ready = $sockSel->can_read )
{
foreach $fh ( @ready )
if ( $fh == $servSock )
{
$newConn = $servSock->accept();
$sockSel->add($newConn);
}
else
{
$fh->recv($sockBuff,$maxLenMsg);
if($sockBuff)
{ # Process sockBuff
}
}
}