IO:Socket::INET: Strategies against death of child processes on broken pipe

Select or download this

#/usr/bin/perl
   
...

Select or download this

use IO::Socket::INET;
 
...
    # notify client that response has been sent
    #shutdown($client_socket, 1);
}

Select or download this

PARENT: Going to transfer line -- 1 --
PARENT: Successfully pushed to child!
...
PARENT: closed writer, waiting for child to exit
Could not connect!
Died at test_4.pl line 58.

Select or download this

server waiting for client connection on port 7775
connection from 127.0.0.1:37480
...

connection from 127.0.0.1:37480
^CCan't call method "close" on an undefined value at sim.pl line 8.

Select Code to Download