my $timeout = pack( 'L!L!', $seconds, 0 );
defined $socket->sockopt( SO_RCVTIMEO, $timeout )
  or die "Couldn't set timeout: $!";