gistfile1.txt

sub blackbox($sock) {
    say "Now receiving. This will block";
    my $a = $sock.read(10).decode.chomp;
    say "Now received '$a'";
}

my $fakesock = IO::Socket::INET.new(:host<localhost>, :port(31337))
               but role {
                   method read($) {
                       say "Lol, I'm intercepting ur read()";
                       take 1;
                       callsame;
                   }
               };

say "Silence before the storm";
my @a := gather blackbox($fakesock);
say "Now running the blackbox";
@a.shift;
say "Now doing the actual receiving";
@a.shift;