use WWW;
use DOM::Tiny;
use Text::CSV;
use URI::Encode;
use HTTP::UserAgent;

constant OUT_FILE = 'results2.txt'.IO;

#my $term = uri_encode "Babesiosis";
my @terms = "list.txt".IO.lines;

for @terms -> $term {
  say "Searching for: $term";
  for 1990..1991 -> $year {
    print "\t...year $year ";
    "temp".IO.spurt: get "https://patents.google.com/xhr/query?url=q%3D$term%26country%3DUS%26before%3D{$year}0101%26after%3D{$year}1231&exp=&download=true", User-Agent => 'Mozilla/4.0';
    my $results-num = csv(:in<temp>).elems - 2;
    say $results-num;
    OUT_FILE.spurt: :append, "$term,$year,$results-num\n";
    sleep(9.rand);
  }
}