sub newconn {
   my $self = shift;
   my $conn = $self->{_conn} = Net::AIM::Connection->new($self, @_);
   return undef if $conn->error;
   # return 1;  # bzzt, we need to return the object
   return $conn;
}