Select Code to Download

#use strict;
use Readonly;
...
foreach my $flag (@EXPORTS) {
  printf "flag = %s, value = 0x%04x\n", $flag, eval( "\$" . $flag );
}

 Readonly::Hash    my %DBG_Val => (DBG_ONE => 1, DBG_TWO => 2, DBG_FOU
+R =>4);