httpクライアントもどきをつくりたいのですが、サーバから送信の最後に
\r\nが送られてこない場合に、通信のタイムアウトを起こすまでSOCKETが
readできません。
Content-Lengthから必要な分だけ先に読み込むことができないでしょうか。

use IO::Socket;

my $SOCKET = IO::Socket::INET->new(PeerAddr　=>$host,
PeerPort　=>$port,
Proto　=>"tcp",
Type　=> SOCK_STREAM
);

$SOCKET->autoflush(1);
binmode($SOCKET);

#ヘッダー処理
while (<$SOCKET>){
m/^\r\n$/ and last;
}
#本文処理
while (<$SOCKET>){
　　print $_;　　　　　　　　　　#<- タイムアウトになるか\r\nを受信するまでよみこめない
}