Can someone tell me what is wrong with the following code? $self->{'CONNECTION'}->disconnect(); undef $self->{'CONNECTION'}; print "connection is not undef\n" unless $self->{'CONNECTION'}; It seems that The message it printed out.