while (my @readable = $select->can_read) {
	for my $socket (@readable) {

		if ($socket == $server) { 
			// hier habe ich es schon so hinbekommen:
			my ($client, $client_addr) = $socket->accept;
			my ($cport, $caddr) = sockaddr_in($client_addr);
			my $ip = inet_ntoa($caddr);
			print "$ip\n";
			$select->add($client);
		}
		else {
			// hier habe ich nur $socket... wie kann ich dann auf die IP zugreifen?
		}
}