From the HTTP::Response POD:

 $response = $ua->request($request)
 if ($response->is_success) {
     print $response->content;
 } else {
     print $response->error_as_HTML;
 }
[download]

--
May the Source be with you.

You said you wanted to be around when I made a mistake; well, this could be it, sweetheart.