package Exported;

  # all the usual stuff here...

  my $dbh;

  sub set_dbh ( $ )
  {
      ( $dbh ) = @_;
  }

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