Help for this page
sub dbh{ my ($self) = @_; return $self->{_dbh}; }
sub select_db{ my $self = shift; return $self->{_dbh}->selectall_arrayref(@_); }