#!/usr/bin/perl

use strict;
use warnings;
use IPC::Open3;

my $conf;
my @args;

local(*HIS_IN, *HIS_OUT, *HIS_ERR);

my $childpid = open3(*HIS_IN, *HIS_OUT, *HIS_ERR, $conf, @args);
close HIS_IN;
my(@outlines) = <HIS_OUT>;
waitpid($childpid, 0);
if ($?) {
    print "Status is: $?\n";
}