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

constant OUT_FILE = 'results3.txt'.IO;

my $term = uri_encode "Cancer";

say "Searching for: $term";
my $year = 2001;
#for 1990..1992 -> $year {
    print "\t...year $year ";
    "temp".IO.spurt: get "https://patents.google.com/?q=Cancer&country=US&before=20011231&after=20010101";
    #"temp".IO.spurt: get "https://patents.google.com/?q=Cancer&country=US&before={$year}1231&after={$year}0101", User-Agent => 'Test/5.0';
    my $results-num = csv(:in<temp>).elems - 2;
    say $results-num;
    OUT_FILE.spurt: :append, "$term,$year,$results-num\n";
#}