質問よろしくお願いします。

TCPサーバの生存監視ツールを作成しようとしています。

tcpクライアントより問い合わせを行い、一定時間応答が帰らない場合
タイムアウトエラーとしたいと考えています。

調べたところ、IO::Socket::INETにTimeOutオプションというのがあったのですが
使用方法がいまいちよくわかりません。

タイムアウトになったことをどのように検知するかご教授頂けないでしょうか。

my $socket = IO::Socket::INET->new(
PeerAddr => 'localhost',
PeerPort => 9999,
Proto => 'tcp',
TimeOut => 5
);