package MyQuery;

  sub new
  {
      my ( $class, $dbh ) = @_;
      return bless { dbh => $dbh }, $class;
  }

  sub do_query
  {
      my ( $self, $key ) = @_;
      return $self->{dbh}->selectrow_hashref( ... );
  }