I tried errorchecking but no error, doesn't even seem to matter what i write after pack().I have something like:
socket(SOCKET,AF_INET,SOCK_STREAM,$proto) or die "no socket";
$iadr = inet_aton("127.0.0.1");
print "connection ok";}
It should correspond to something like:
$conn = IO::Socket::INET->new(
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.