print $socket "GET $path HTTP/1.0" . CRLF . "Host: $host" . CRLF . CRLF;