#!/usr/bin/env perl
use strict;
use warnings;

use RPC::Async::Client;
use IO::EventMux;

my $mux = IO::EventMux->new;
my $rpc = RPC::Async::Client->new($mux, "perl://server.pl");
# or # my $rpc = RPC::Async::Client->new($mux, "tcp://127.0.0.1:1234");

$rpc->add_numbers(n1 => 2, n2 => 3,
    sub {
        my %reply = @_;
        print "2 + 3 = $reply{sum}\n";
    });

while ($rpc->has_requests || $rpc->has_coderefs) {
    my $event = $rpc->io($mux->mux) or next;
}

$rpc->disconnect;