Select Code to Download

my @field_names = $response->headers->header_field_names;
print "$_ => ", $response->header($_), "\n" for @field_names;

$response->headers->scan(sub {
    my ($key, $value) = @_;
    print "$key => $value\n";
});