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

##</code><code>##

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