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