4 use Object::Remote::Connector::STDIO;
7 #$Object::Remote::Connection::DEBUG = 1;
9 my $c = Object::Remote::Connector::STDIO->new->connect;
11 my $loop = Object::Remote->current_loop;
13 $c->on_close(sub { $loop->stop });
15 print { $c->send_to_fh } "Shere\n";