my ($client, $ip) = $socket->accept;
$select->add($client);
my ($port, $iaddr) = unpack_sockaddr_in($ip);
$iaddr = inet_ntoa($iaddr);
$users{rand(100)} = $iaddr;
print "New Client connected: $iaddr\n";
$client->print("Welcome\n");