#!/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;