a.p6

for 1..100 {
    my $proc = Proc::Async.new('cat', '-', :w);
    my $total = 0;
    $proc.stdout(:bin).tap: { $total += .bytes };
    my $exit = $proc.start;
    await $proc.write($input);
    $proc.close-stdin;
    await $exit;
    ok $total == $input.bytes;
}