#!/usr/bin/perl
 require RPC::PlClient;

  # Create a client object and connect it to the server
  my $client = RPC::PlClient->new('peeraddr' => 'localhost',
                                  'peerport' => 1234,
                                  'application' => 'server',
                                  'version' => '1.0',
                                  'user' => 'nobody',
                                  'password' => 'hello!' );

  # Create an instance of $class on the server by calling 
  # $class->new() and an associated instance on the client.
  my $object = $client->Call('NewHandle', $class, 'new', @args);


  # Call a method on $object, effectively calling the same method
  # on the associated server instance.
  my $result = $object->do_method(@args);