Socketモジュールを使って2chのsubject.txtをGETしようとしているのですが、
内容を見るために
while (<SOCKET>){
print $_;
}
を書き加えると動作が途中で止まってしまいます。
コードは以下のとおりです。ActivePerl5.8.8です。ほかのサイトも試してみましたが同じような結果になります。
use Socket;
$server="news20.2ch.net";
$iaddr=inet_aton($server);
$sock_addr=pack_sockaddr_in($port,$iaddr);
socket(SOCKET, PF_INET, SOCK_STREAM, 0);
connect(SOCKET, $sock_addr);
select(SOCKET); $|=1; select(STDOUT);
print SOCKET "GET /news/subject.txt HTTP/1.1\n";
print SOCKET "Accept-Encoding: gzip\n";
print SOCKET "Host: $server\n";
print SOCKET "User-Agent: Monazilla\n";
print SOCKET "Connection: close\n";

while (<SOCKET>){
print $_;
}
どのようにしたら内容を見ることが出来るのでしょうか？教えてください。