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