Expected Output

Done starting

Perl6 Interp ready

> say 2
2
> 1 + 3 + 4
8
> 
done

test.pl

use IPC::Run qw(start harness pump start timeout);

my ($in, $out);
my $p = start ['/Users/john/Projects/rakudo/perl6'], '>', \$out, '<', \$in, timeout(35);
print "Done starting\n\n";

print "Perl6 Interp ready\n\n";
$in = "say 2\n";

$p->pump while length $in;
$p->pump until $out =~ /\n>\s/m;

print $out; 

$out = "";
$in = "1 + 3 + 4\n";

$p->finish;
print $out;

print "\ndone\n";