Select Code to Download

use strict;
use warnings;
...
print($response->protocol(), ' ');
print($response->status_line(), "\n");
print($response->headers_as_string()); # $response->headers->as_string

use strict;
use warnings;
...
print($response->protocol(), ' ');
print($response->status_line(), "\n");
print($response->headers_as_string());

use strict;
use warnings;
...
print($response->protocol(), ' ');
print($response->status_line(), "\n");
print($response->headers_as_string());

use strict;
use warnings;
...
my $response = $ua->head($url);  # or "get", etc.

print($response->as_string());

use strict;
use warnings;
...

   print_deep($response);
}