GET resultater i en %HASH

Jeg har noget kode, der ser således ud:

$ua = LWP::UserAgent->new(keep_alive => 1, timeout => 60);
$request = HTTP::Request->new('GET','http://www.google.com");
$response = $ua->request($request);
%response = %{$response};
$response_ref = $response{_headers} ;
%headers = %{$response_ref};
while (($key, $value) = each(%headers)) {
    print("$key => $value\n");
}

Jeg vil gerne gøre det samme bare med en socket.  Jeg har følgende:

my $socket = IO::Socket::INET->new(Proto => 'tcp', PeerAddr => 'www.google.com', PeerPort => 80) || die($!);
print($socket "GET / HTTP/1.0\n\r\n\r");

while (<$socket>) {
    $response .= $_;
}

%response = %{$response};
$response_ref = $response{_headers} ;
%headers = %{$response_ref};
while (($key, $value) = each(%response)) {
    print("$key => $value\n");
}

Men jeg får ikke noget ud.  Hvad gøre jeg forkert?
Mange tak!