use strict;
use warnings;
	
my $pid = open(KID_TO_READ, "-|", "perl -w b.pl");
while (<KID_TO_READ>) {
	print "from parent: $_";
}

##</code><code>##

use strict;
use warnings;

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

##</code><code>##

from parent: Hello
from parent: World

##</code><code>##

use strict;
use warnings;

open STDERR, '>&STDOUT';

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