for my $header (@{$response->headers->header_field_names}) {
    print $header, ": ", $response->header($header), "\n";
}