my $request = "GET /path/to/file.html HTTP/1.0\n\n";
print $socket $request;
my $result;
{ 
	local $/;
	$result = <$socket>;
}