sub new{
    my $self = shift;
    my $dbh = shift;
    $self->{dbh} = $dbh;
    return $self;
}