Hi, this may help you. The example shows how to run the 'bc' calculator program, and collect its output with IO::Select.

#!/usr/bin/perl
use warnings;
use strict;
use IPC::Open3;
use IO::Select;

my $pid = open3(\*WRITE, \*READ,\*ERROR,"bc");

my $sel = new IO::Select();

$sel->add(\*READ);
$sel->add(\*ERROR);

my($error,$answer)=('','');

while(1){

 print "Enter command\n";
 chomp(my $query = <STDIN>);
 
 #send query to bash
 print WRITE "$query\n";

 foreach my $h ($sel->can_read)
 {
   my $buf = '';
   if ($h eq \*ERROR)
   {
     sysread(ERROR,$buf,4096);
     if($buf){print "ERROR-> $buf\n"}
   }
   else
   {
     sysread(READ,$buf,4096);
     if($buf){print "$query = $buf\n"}
   }
 }
}

waitpid($pid, 1);
# It is important to waitpid on your child process,  
# otherwise zombies could be created.
[download]

and here is a simple way to start a bash script session, print commands to it, and collect output.

#!/usr/bin/perl 
use warnings;
use strict;
use IPC::Open3;

$|=1;

my $pid=open3(\*IN,\*OUT, \*ERR , '/bin/bash');

# set \*ERR to 0 to send STDERR to STDOUT

my $cmd = 'date';

#send cmd to bash
print IN "$cmd\n";

my $result = <OUT>;
print $result;
[download]