Select Code to Download

sub dbh{
  my ($self) = @_;
  return $self->{_dbh};
}

sub select_db{
  my $self = shift;
  return $self->{_dbh}->selectall_arrayref(@_);
}