Select Code to Download

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

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