open(RW, "+<pipe") or die "unable to open pipe: $!\n";
open(FH, "<pipe") or die "open pipe: $!\n";
while (<FH>) {
    # process line
}