Select Code to Download

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

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