Select Code to Download

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

  my $class_data; END { $class_data = undef }