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;