my $dbh = DBI->connect( ... );
  set_dbh( $dbh );
  my $answer = do_query( $key );