open (PIPE,"| perl read_three.pl") or die "Can't open pipe: $!";