I tried errorchecking but no error, doesn't even seem to matter what i write after pack().I have something like:

$port=80;
$proto=getprotobyname('tcp');
socket(SOCKET,AF_INET,SOCK_STREAM,$proto) or die "no socket";
setsockopt(SOCKET,SOL_SOCKET,SO_RCVTIMEO,pack("LL",1,0));
$iadr = inet_aton("127.0.0.1");
$padr=sockaddr_in($port,$iadr);
if(connect(SOCKET,$padr)){
print "connection ok";}
else{print "$!\n";}
[download]

It should correspond to something like:

$conn = IO::Socket::INET->new(
    PeerAddr=>"127.0.0.1",
    PeerPort=>80,
    Proto=>'tcp',
    Timeout=> 1, 
        Blocking=>1    );
[download]

So: a blocking socket with a 1 second timeout because now the standardtimeout is something like 10 seconds,making my applications run slower iso faster which was the general idea.

See Re: how to set socket recv timeout in architecture independent manner?

---

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

RIP Neil Armstrong

I allready looked at that, says on windows SO_RCVTIMEO is considered to be a DWORD, but i cannot find any documentation on how to pack a DWORD, so i keep getting stuck. I thought maybe it would be something simple, cause it doesn't take much effort if you're using the IO::Socket module. But nevermind, I'll work something out. Thank you.