Perl: How to get IO::Socket::INET timeout after X seconds?

Question

I\'m trying to connect to some host, using invalid port, and i want to get timeout after X seconds. How to do that ?

My code:

 $sock = new IO::Socket         


        

Answer 1

So much easier is to use the IO::Socket::Timeout

as per below and it works like a charm.

use IO::Socket::Timeout;
my $socket = IO::Socket::INET->new( Timeout => 2 );
IO::Socket::Timeout->enable_timeouts_on($socket);
$socket->read_timeout(0.5);    # These will work
$socket->write_timeout(0.5);   # These will work