use Data::Dumper;
print Dumper($response), "\n";

##</code><code>##

print "\n----\nHEADERS ", __FILE__, " SENT\n";
print $response->request->headers->as_string;
print "\n----\nHEADERS ", __FILE__, " RECIEVED FROM ", $response->request->uri, "\n";
print $response->headers->as_string, "\n----\n";