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