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>);

$find.stdout.tap(-> $line { 
    CATCH { default { say .^name } }
    print $line
});
$find.stderr.tap(-> $line {
    CATCH { default { say .^name } }
#    put "FAIL: $line"
});

my $promise = $find.start;

await $promise;

/mnt/storage/media/mods/WAI-Unhandled exception in code scheduled on thread 3
Malformed UTF-8
in any at /usr/local/src/rakudo/install/share/perl6/runtime/CORE.setting.moarvm line 1
in method consume-available-chars at /usr/local/src/rakudo/install/share/perl6/runtime/CORE.setting.moarvm line 1
in block at /usr/local/src/rakudo/install/share/perl6/runtime/CORE.setting.moarvm line 1