my $sock = IO::Socket::INET->new(...., Timeout => 10);