async.p6

use v6;

CATCH { default { say .^name; say .Str } }

# say qx{find / -print}.lines;
# if qx{} steps onto malformed utf8: Unable to read from 'find / -print'
# exit 0;

my $find = Proc::Async.new(|<find / -print>);

react {
    whenever $find.stdout(:bin) -> $line {
        QUIT { when X::AdHoc { say .^name, .Str } }
        print $line.decode('utf8-c8');
    }

   whenever $find.stderr(:bin) -> $line {
       QUIT { say .^name }
       # put "FAIL: $line"
   }

    $find.start;
}