my $o=new MyClass;
my $dbh=$o->opendb;
warn $o->{_dbh};
warn $dbh; # the same as the previous line
undef $o;
exit;