sub opendb {
   my $self=shift;
   $self->{_dbh}=DBI->connect(...);
#   return $self->{_dbh}; # Should return $self here
   return $self;
   }