Select Code to Download

use strict;
use warnings;
...
while (<KID_TO_READ>) {
    print "from parent: $_";
}

use strict;
use warnings;

print "Hello\n";
print "World\n";

from parent: Hello
from parent: World

use strict;
use warnings;
...

print "Hello\n";
print STDERR "World\n";