my $class = shift;
  my $self = {...};
  bless ($self, $class);

  $Client = new IO::Socket::INET ( ...);
  $self->{Client} = $Client;