my $userTimeout = 5000;
setsockopt( $sock, 6, 18, \$userTimeout );