e2.p6

use v6;
use IO::Capture::Simple;

my ($out, $err, $in) = capture { print "OUT"; note "ERR"; prompt "IN> " }

say $out, $err, $in;