diff -Naur Astro-ADS-1.20.7.orig/Query/Query.pm Astro-ADS-1.20.7/Query/Query.pm
--- Astro-ADS-1.20.7.orig/Query/Query.pm	2002-09-23 15:07:49.000000000 -0600
+++ Astro-ADS-1.20.7/Query/Query.pm	2008-09-07 18:47:39.000000000 -0600
@@ -566,7 +566,7 @@
 sub journal {
   my $self = shift;
 
-  # SETTING END YEAR
+  # SETTING JOURNAL
   if (@_) { 
 
     my $source = shift;
@@ -581,11 +581,62 @@
 
   }
 
-  # RETURNING END YEAR
+  # RETURNING JOURNAL
   return ${$self->{OPTIONS}}{"jou_pick"};
 
 }
 
+=item B<exactauthor>
+
+Return (or set) whether to match the author name exactly.
+
+   $query->exactauthor( "NO" );
+   $query->exactauthor( "YES" );
+
+the default is NO exact matching.
+
+=cut
+
+sub exactauthor {
+  my $self = shift;
+
+  if (@_) { 
+
+    my $source = shift;
+    
+    if ( $source eq "YES" ) {
+       ${$self->{OPTIONS}}{"aut_xct"} = "YES";
+    } else {
+       ${$self->{OPTIONS}}{"aut_xct"} = "NO";
+    }  
+
+  }
+
+  return ${$self->{OPTIONS}}{"aut_xct"};
+
+}
+
+=item B<maxpapers>
+
+Return (or set) the maximum number of paper to return.
+
+   $query->exactauthor( 1000 );
+
+the default is 100 papers.
+
+=cut
+
+sub maxpapers {
+  my $self = shift;
+
+  if (@_) { 
+    ${$self->{OPTIONS}}{"nr_to_return"} = shift;
+  }
+
+  return ${$self->{OPTIONS}}{"nr_to_return"};
+
+}
+
 # C O N F I G U R E -------------------------------------------------------
 
 =back
@@ -629,7 +680,7 @@
   $self->{USERAGENT}->env_proxy();
 
   # configure the default options
-  ${$self->{OPTIONS}}{"db_key"}           = "AST";
+#  ${$self->{OPTIONS}}{"db_key"}           = "AST";
   ${$self->{OPTIONS}}{"sim_query"}        = "YES";
   ${$self->{OPTIONS}}{"aut_xct"}          = "NO";
   ${$self->{OPTIONS}}{"aut_logic"}        = "OR";
@@ -689,7 +740,7 @@
   # Loop over the allowed keys and modify the default query options
   for my $key (qw / Authors AuthorLogic Objects ObjectLogic Bibcode 
                     StartMonth EndMonth StartYear EndYear Journal
-                    Proxy Timeout URL/ ) {
+                    Proxy Timeout URL ExactAuthor/ ) {
       my $method = lc($key);
       $self->$method( $args{$key} ) if exists $args{$key};
   }