pipe( READER, WRITER );
$pipes{$pid} = [\*READER, \*WRITER];