setsockopt( $sock, 6, 18, pack( "Q", 5000 ) )

##</code><code>##

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