Select Code to Download

...
send($sock,"GET / HTTP/1.0\n\n",0);
...
my @response=<$sock>;

print("@response")