if ($response->is_success 
    and ($response->content_type eq 'text/html')) {
  $str = $response->content;
}
else {
  $str = "Content type was $response->content_type"
     unless ($response->content_type eq 'text/html');
  $str = $response->status_line
     unless ($response->is_success);
}