#!/usr/bin/perl -w
    use strict;

    use IPC::Open2;

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

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

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