!/bin/perl -w
use strict;
use Readonly;

Readonly my $DBG_ANY	=> -1;
Readonly my $DBG_INFO	=> 0x0004;
Readonly my $DBG_KEYS	=> 0x0008;
Readonly my $DBG_RAND	=> 0x0080;

my @Vals = ( $DBG_ANY, 1, 2,
#	$DBG_INFO, $DBG_KEYS, 
	);

Readonly my $_debug_ops => ($DBG_RAND | $DBG_KEYS | $DBG_INFO);

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