Вот пишу перл граббер есть одна проблемка , ниже код проверки сокса 4 но вот
как задать таймаут коннекта стобы нездать 10 секунд пока он приконектетса

...
if ( !socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp')) ) {return 0;}
setsockopt(SOCK,SOL_SOCKET,SO_RCVTIMEO,5);
setsockopt(SOCK,SOL_SOCKET,SO_SNDTIMEO,5);
if ( !connect(SOCK, sockaddr_in($port, inet_aton($ip))) ) {
#wprint("[-] SOCKS4, can't connect to $ip:$port!\n");
return 0;
}
...

man setsockopt