Thanks for answer. But there is no solution? I need to have a slow program? It's kind of disappointing. There is another option instead of alarm() to timeout my call to Net::SOCKS? Some workaround as select() in C? Maybe threads queue? I'm very new to perl, but I can't believe that a simple task like that is unsolved. Thank you