setsockopt( $sock, 6, 18, pack( "Q", 5000 ) ) #### my $userTimeout = 5000; setsockopt( $sock, 6, 18, \$userTimeout );