Help for this page
$sock = $mother->accept(); create sharedmem/pipe/unixsocket; if fork {return identifier($sock)} else {pass_data_between_socket_and_main($sock)}
$sock = $mother->accept(); push @socks, $sock; return identifier($sock)