#!/usr/local/bin/perl -w
use IPC::Open2;

#$| = 1;

open2(\*IN, \*OUT, "f2.pl"); 

print OUT "proclist\n";
print OUT "quit\n";

while ($line = <IN>) {
   print "parent:$line";
}
close IN;
print "parent done\n";
close OUT;

exit;

##</code><code>##

#!/usr/local/bin/perl -w
use IPC::Open2;
#$| = 1;

while ($line = <STDIN>) {
   #last if ($line =~ /quit/i);
   print "child_got_this:$line";
}
print "child done\n";

exit;