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

##</code><code>##

sub DESTROY {
   my $self=shift;
   local($@);
   if ( $self->{_dbh} and $self->{_dbh}->ping ) {
      warn;  ## to debug
      $self->{_dbh}->commit;
      $self->{_dbh}->disconnect;
      }
   }