#!/usr/bin/perl

use IPC::Open2;
use strict;

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

while (<$reader>) {
	print "[", $_, "]\n";
}