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);