use IPC::Open3;
use Symbol;

$OUTERR = gensym();
$IN = gensym();

print STDOUT "running...\n";
$pid = open3($IN, $OUTERR, $OUTERR, 'outerr.pl') or die $!;
while ( wait != $pid ) {};
print STDOUT "done...\n";

while (<$OUTERR>) {
   print STDOUT "got: $_";
}

close OUTERR;