[Moscow.pm] непонятный стук

[Ivan Petrov]

> http://pzz.livejournal.com/9564.html

спасибо за ссылку. хгм

my $s = IO::Socket::INET->new(PeerAddr => '127.0.0.1', PeerPort =>
$port, ReuseAddr => 1, LocalAddr => '127.0.0.1', LocalPort => 9110);

теперь на эту ошибку нарывается только сам скрипт. то есть раз в
секунду две вылетает пачка ошибок и дальше проблема рассасывается

вопрос остается: как модифицировать данный скрипт чтобы вообще не
налетать на данную проблему? вручную перебирать порты до удачного
результата?