小编cod*_*2be的帖子

我正在尝试使用无效端口连接到某个主机,我想在X秒后获得超时.怎么做 ？

我的代码:

 $sock = new IO::Socket::INET(
                  PeerAddr => $_[0],
    PeerPort => $_[1],
    Proto => 'tcp',
    Timeout => 2
    );