sub DESTROY {
    my $self = shift;
    $self->{dbh}->disconnect if $self->{connected};
  }