PM/Database.pm

package Database;

use DBI;

sub new {
    my $class = shift;

    my $self  = {
    };

    bless $self, $class;
    return $self;
}