$sock = $mother->accept();
create sharedmem/pipe/unixsocket;
if fork {return identifier($sock)}
else {pass_data_between_socket_and_main($sock)}

##</code><code>##

$sock = $mother->accept();
push @socks, $sock;
return identifier($sock)