Select Code to Download

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

sub DESTROY {
   my $self=shift;
...
      $self->{_dbh}->disconnect;
      }
   }