#!/usr/bin/perl -w

pipe(READ,WRITE);
print WRITE "Good\n";
close(WRITE);
print <READ>;

##</code><code>##

#!/usr/bin/perl -w

pipe(READ,WRITE);
my $pid = fork;
die $! unless defined $pid;

### parent
if( $pid ){
  local $/ = 1;  # never do this global
  my $out = <READ>;

###  child
}else{
  #  local *STDOUT = *WRITE;
  print WRITE "Good\n";
  close(WRITE);
  exit;
}

print "I got [$out]\n";