package MyServer;
  use RPC::PlServer;

  $MyServer::VERSION = '1.0';
  @MyServer::ISA = qw(RPC::PlServer);

  # Overwrite the Run() method to handle a single connection
  sub Run {
      my $self = shift;
      my $socket = $self->{'socket'};
  }

1;

#!/usr/bin/perl

use MyServer;
my $server = MyServer -> new({'localport'=>'1234', 
                                 'pidfile' =>'/home/tvix/server.pid',
                                  }, \@ARGV);

$server->Bind();

 #!/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);