# parent domain
...
my $server_socket = IO::Socket::INET->new(		
	Listen => 5,
        ReuseAddr => 1,
	LocalAddr => 'a.b.c.d',	
	LocalPort => nnnn,
	Blocking  => 0	
) 

# fork n children ...

# child domain:
fh_nonblocking $server_socket, 1;
my $w = AE::io $server_socket, 0, sub {
  while(accept my $client_socket, $server_socket) {
    # setup handlers for this new client: 
    $handles->{$client_id} = new AnyEvent::Handle(
      fh => $client_socket,
      on_read => sub { ... },
      on_error => sub { ... },
    );    
   $handles->{$client_id}->push_write ("Child $child_no welcome client $client_id \015\012");
...