$response = $ua->request($request);
...
my $method = $response->request->method;
my $url = $response->request->url->as_string;
my $code = $response->code;
print "$method $url --> ", $response->status_line, "\n";