my $timeout = pack("qq", 10, 0);
$sock->sockopt(SO_RCVTIMEO, $timeout);