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

my @terms = "listpatent.txt".IO.lines.map: *.subst(:g, " ", "+").&uri_encode;
#my $id = 515;

for @terms -> $term {
  say "Searching for: $term";
  my $year1 = 1966; my $year2 = 2016;
  my $encoded-term = '%22'~$term.subst(:g, ' ', '%20')~'%22';
  my $file = "disease$id.csv".IO;
  $file.spurt: get "https://patents.google.com/xhr/query?url=q%3D{$encoded-term}%26country%3DUS%26before%3Dpriority%3A{$year2}1231%26after%3Dpriority%3A{$year1}0101&exp=&download=true", User-Agent => 'Safari 3.77';
  sleep(18.rand);
}