Perl: Como obter o tempo limite de IO :: Socket :: INET após X segundos?
Estou tentando conectar-me a algum host, usando uma porta inválida, e quero obter um tempo limite após X segundos. Como fazer isso ?
Meu código:
$sock = new IO::Socket::INET(
PeerAddr => $_[0],
PeerPort => $_[1],
Proto => 'tcp',
Timeout => 2
);