sub _new_socket
{
  my($self, $host, $port, $timeout) = @_;
  my $s;
  print "Creating New socket: $host, $port, $timeout\n";
  print ref($self),"\n";
  foreach my $k (keys %$self) {print "$k: $self->{$k}\n";}
  $s = $self->SUPER::_new_socket( @_ );
  print "ok\n";
  return $s;
}