sub Run ($) {
          my($self) = @_;
          my($line, $result, $sock);

          $sock = $self->{'socket'};
          while (1) {
              if (!defined($line = $sock->getline())) {
                  if ($sock->error()) {
                      $self->Error("Client connection error %s",
                                   $sock->error());
                  }
                  $sock->close();
                  return;
              }
          }
       print "Server received request: $line\n";
}