Select Code to Download

#!/usr/bin/perl -w
use strict;
...


print STDERR "Parent $$: Should never get here\n";

#!/usr/bin/perl

...
exit 1 unless $line eq 'SUCCESS';
exit 0;

Parent 11124: Server up
Parent 11124: Closing child socket
...
Parent 11124: Should never get here
Child 11131: Read from client: some_client 11130
Child 11131: Sent READY, closing