[perl] установить таймаут операции извлечения из потока

stm7583298

Проблема такая - есть поток, к которому через ipc::open2 прикручен ssh. Иногда возникает неприятный глюк, когда после отправки запроса на сервер скрипт виснет, так и не дождавшись ответа. Как не особенно извращаясь, установить таймаут извлечению из потока?

#!/usr/bin/perl -w

use strict;

$SIG{ALRM}= sub{die "timeout"};

eval{

  alarm(10);

  sleep 11;

};

if($@ and $@=~/timeout/){

  print "ахтунг, ахтунг!\n";

}  

stm7583298

thx