ugexe/procs.pl6 Secret

## procs.pl6

my $proc = run «cat -», :in, :out, :bin;
say "started";

my $input = ("a" x 1000000).encode;
say "input total: {$input.bytes}";

my $promise = start {
    $proc.in.write: $input;
    say "input written";

    $proc.in.close;
    say "input closed";
}

my $total;
$proc.out.Supply.act: {say "Got {.bytes} bytes"; $total += .bytes}
await $promise;

$proc.out.close;

say "Bytes received: $total";
say "Exit code: {$proc.exitcode}";

	my $proc = run «cat -», :in, :out, :bin;
	say "started";

	my $input = ("a" x 1000000).encode;
	say "input total: {$input.bytes}";

	my $promise = start {
	$proc.in.write: $input;
	say "input written";

	$proc.in.close;
	say "input closed";
	}

	my $total;
	$proc.out.Supply.act: {say "Got {.bytes} bytes"; $total += .bytes}
	await $promise;

	$proc.out.close;

	say "Bytes received: $total";
	say "Exit code: {$proc.exitcode}";