[Q] Socket check in Perl

[SEKIDO Ryoichi]

関戸と申します．

サーバー上にクライアントと通信するためのソケットが定義されています．

use IO::Socket;
$sock = new IO::Socket::INET(...);
...
$new_sock = $sock->accept();
...

ここで，$new_sock->send(...) などとしてクライアントにデータを送る前に，
クライアントが死んでないか確かめたいのです．

クライアントが死んでいる状態で，$new_sock->peeraddr() などでクライアントの
情報にアクセスすると，Perl が終了してしまうのです．

何かよい方法はないでしょうか？

--- midiCity Co.,Ltd. -------------------------------------------------->
関戸　良一 rse...@midicity.co.jp
SEKIDO Ryoichi Phone/Fax 03-5478-0821/5478-0820
<-------------------------------------------------- midiCity Co.,Ltd.----