#!/usr/bin/perl -w

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