print "failed response $!<BR>\n";

##</code><code>##

      $response = $ua->request($request);
      if ( $response->is_success ) {
         # ...
      } else {
         print $response->status_line, "\n";
      }