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