# p_1.pl

use warnings;
use strict;

open my $ph, '|-', 'perl p_2.pl' or die 'opening pipe to p_2: $!';

print $ph <<EOP;
hi there
bye now
EOP

close $ph or die 'closing: $!';

print "$0 exiting \n";

exit;


# p_2.pl

use warnings;
use strict;

print "in $0: \U$_" while <STDIN>;

print "in $0: exiting \n";

exit;

##</code><code>##

>perl p_1.pl
in p_2.pl: HI THERE
in p_2.pl: BYE NOW
in p_2.pl: exiting
p_1.pl exiting