perlでsocketを使用して、外部のサーバの情報を取得したいのですが、
その際にタイムアウトの時間を設定することは出来ませんか？
例えば、10秒以内に取得できなければ、エラーを出して終了するとか出来ませんか？

現在↓みたいにして取得しています。
よろしくお願いします。

#---------------------------
use Socket;
my $sock_addr = pack_sockaddr_in(80, inet_aton("2ch.net"));
socket(SOCKET, PF_INET, SOCK_STREAM, 0);
connect(SOCKET, $sock_addr);
select(SOCKET); $|=1; select(STDOUT);
print SOCKET "GET / HTTP/1.0\r\n";
print SOCKET "\r\n";
while (<SOCKET>){m/^\r\n$/ and last;}
while (<SOCKET>){print;}
#--------------------------