#!/afs/athena/contrib/perl5/perl

use IPC::Open3;
use Term::ReadLine;

$term = new Term::ReadLine 'readlineish';
$pid = open3("W", "READ", *E, @ARGV);

select(READ); $|=1; select(STDOUT);
select(W); $|=1; select(STDOUT);
print("Starting @ARGV with pid $pid\n");
while(1){
    vec($r, fileno(READ), 1) = 1;
    while(select($r, undef, undef, 1)){
	sysread(READ, $b, 1);
	print $b;
    }
    $inp = $term->readline("");
    print W $inp, "\n";
}