server.pl  <--- TCP :7777 -->   client.pl          <--- readpipe() --->   client.pl
                                    forked child                              forking parent
                                                     $reader            $writer