sub new {

my $self = shift;

bless...

my $dbh = shift;

$self->{dbh} = $dbh;

return $self;

}