my $x = $ua->simple_request($req);
foreach $k (keys(%$x)) {print "$k = $x->{$k}\n";}