Select Code to Download

#!/usr/bin/perl
use strict;
...

print "When saved & reloaded:\n";
print join "\n", keys %CFG;

<abc1>
    opt   val
...
<test2>
    opt   val
</test2>

When freshly loaded:
abc1
...
abc1
test2
cba1