...
send($sock,"GET / HTTP/1.0\n\n",0);

my @response=<$sock>;

print("@response")