sub new {
  my $self = bless {}, shift;
  $self->{dbh} = shift;
  # etc
  return $self;
}