use strictures 1;
use Devel::Dwarn;
use Tak::JSONChannel;
use Tak::Router;
use IPC::Open2;
use Tak::Remote;

my $pid = open2(my $out, my $in, $^X, qw(-Ilib takd))
  or die "Couldn't open2 child: $!";

my $channel = Tak::JSONChannel->new(
  read_fh => $out,
  write_fh => $in
);

my $router = Tak::Router->new(
  channel => $channel,
);

my $remote = Tak::Remote->new(
  router => $router,
  name => 'EVAL'
);

::Dwarn([ $remote->blocking_request(eval => 'my $x = 1;') ]);
::Dwarn([ $remote->blocking_request(eval => '1+$x;') ]);