### A ###
...
open2( \*READ, \*WRITE, 'B' );
print WRITE "Hello there.\n";
...

### B ###
$input = <STDIN>;
print "echo back: $input";
...