#!/usr/bin/perl
use IPC::Open2;

print open2(\*BOIN, \*BOOUT, "cat"); 

print BOIN "proclist\n";
print BOIN "quit\n";
close BOIN;

while (<BOOUT>) {
	print;
}
close BOOUT;