#!/usr/bin/perl

use strict;
use warnings;

use IPC::Open3;
use IO::Select;
use Symbol;

my $IN  = gensym();
my $OUT = gensym();
my $ERR = gensym();

print "Running...\n";

my $pid = open3($IN, $OUT, $ERR, 'outerr.pl') or die $!;

my $sel = new IO::Select;
$sel->add($ERR,$OUT);

my $data;

while (my @ready = $sel->can_read) {
  foreach my $fh (@ready) {
    read $fh, $data, 8196;

    die "Error from child: $!\n" if ! defined $data;

    if (length $data == 0){
      # No data read - child must be finished writing.
      $sel->remove($fh);
      next;
    } else {
      # read OK:
      print $data;
    }
  }
}

print "Done.\n";