$ua->add_handler(
  request_preprepare => sub {
    my ($req) = @_;
    $req->header('User-Agent', "TEST $ctr");
    print "User-Agent: ", $req->header('User-Agent'), "\n";
    $ctr++;
  },
);