Select Code to Download

my %flag = (
    name_of_the_flag => 0,
    another_flag     => 1,
...

# Later...
print "another_flag is set\n" if $flag{another_flag};

my $flag = 0;

print "\$flag is set\n" if $flag;