use strict;
use warnings;

use constant DBG_ANY    => -1;
use constant DBG_INFO   => 0x0004;
use constant DBG_KEYS   => 0x0008;
use constant DBG_RAND   => 0x0080;

my @Vals = ( DBG_ANY, 1, 2, DBG_INFO, DBG_KEYS, );
my $_debug_ops = (DBG_RAND | DBG_KEYS | DBG_INFO);

printf "debugops = 0x%04x\n",$_debug_ops;

##</code><code>##

debugops = 0x008c