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