my $res= $ua->request($req);

print $res->is_success ? "yay\n" : "error\n";
print sprintf "Status %d\n", $res->code;
print $res->decoded_content;