stream.pl6

my role IO::Streamable::Socket[*%connect-opts] {
   # Fake enough of the interface to be viable
   has $.socket;
   has $!IO handles 'slurp-rest';
   method open {
       $!IO //= do {
           my $tmpfile = $*TMPDIR.child("{time}.{$*PID}");
           $!socket.?connect(|%connect-opts);
           $!socket.?send('possible handshake/init stuff');
           $tmpfile.spurt: $!socket.recv(:bin);
           $tmpfile;
       }
   }
}
my $h = IO::Handle.new(:path('-')) but IO::Streamable::Socket[:host<localhost>];
...; $h.open.slurp-rest;