Help for this page
$ perl -MO=Deparse use constant DOFOO => 0; ... my $DOBAR = 0; '???'; print 'bar' if $DOBAR;
use Data::Dump; use constant FOO => 123; ... dd \%h; __END__ { 123 => "C", 456 => "D", BAR => "B", FOO => "A" }