###### I/O unblocking ######
fcntl($sock, F_GETFL,$flags)     
or die "Cannot get flags for socket : $!\n";
$flags |= O_NONBLOCK;
fcntl($sock,F_SETFL,$flags)
  or die "Cannot set flags for socket : $!\n";