Perl: Как получить время ожидания IO :: Socket :: INET через X секунд?
Я пытаюсь подключиться к некоторому хосту, используя неверный порт, и я хочу получить тайм-аут после X секунд. Как это сделать ?
Мой код:
$sock = new IO::Socket::INET(
PeerAddr => $_[0],
PeerPort => $_[1],
Proto => 'tcp',
Timeout => 2
);