die unless $response->is_success;

##</code><code>##

    die ("Could not fetch the web page because: "
      . $response->status_line) unless $response->is_success;
    die ("Content type not text/xml.  It was" .
         $response->content_type)
      unless ($response->content_type eq 'text/xml');

##</code><code>##

use strict;
use warnings;