#!/usr/bin/perl

use IPC::Open2;
use strict;

my ($reader, $writer);
my $pid = open2($reader, $writer, "sh") || die "failed";

print $writer "history\n";
my $buffer;
sysread($reader, $buffer, 4000);
print "[", $buffer, "]\n";

print $writer "ls\n";
sysread($reader, $buffer, 4000);
print "[", $buffer, "]\n";