Help for this page
% perldoc HTTP::Response
$response = $ua->request($request) if ($response->is_success) { ... } else { print $response->error_as_HTML; }