Select Code to Download

# testparent.pl

...
my $bytes_read = sysread($child_socket, $buf, 1024);
print $buf, "\n";
exit 0;

# testchild.pl

...

exit 0;