package database_mod;
use DBI;

sub new {
    ### $class, $self, bless n all.
}#sub

sub connect {
    $self->### DBI connect
}#sub


package database_user;

use base database_mod;

sub add_user {
    $self->### DBI SQL, ETC
}#sub


package database_report;

use base database_mod;

sub report {
    $database_mod::dbh->### ETC
}#sub