my $read="READ$name";
my $write="WRITE$name";
pipe($read,$write);