Select Code to Download

#!usr/bin/perl
use strict;
...
    print "$i:$config{i}\n";
}

$ perl test002.pl
AAA:1
...
CCC:
DD:

AAA=1;
BBBB=0;
CCC=0;
DD=1;