timeout([VAL])
           Set or get the timeout value associated with this socket. If called
           without any arguments then the current setting is returned. If
           called with an argument the current setting is changed and the pre-
           vious value returned.


##</code><code>##


use IO::Socket;
use IO::Select;

$max_msglen = 1024;
$max_clients = 10;
$port = 9999;
$timeout = 300;

$serverSocket = IO::Socket::INET->new( 	Proto=>"tcp", 
										LocalPort=>$port, 
										Listen=>$max_clients,
										Timeout =>$timeout, 
										Reuse=>1
										);
$sel = IO::Select->new($serverSocket);

##</code><code>##

 select ( READ, WRITE, ERROR [, TIMEOUT ] )
           "select" is a static method, that is you call it with the package
           name like "new". "READ", "WRITE" and "ERROR" are either "undef" or
           "IO::Select" objects. "TIMEOUT" is optional and has the same effect
           as for the core select call.