use LWP;
use LWP::UserAgent;
$response1 = $response->headers_as_string;
print "$response1\n";