Select Code to Download

[Section1]
param1=value1
...
[Section3]
param1=value1
param2=value2

use Config::Simple;

...

    }
}

section : Section1
Section1.param1 : value1
...
Section2.param2 : value2
Section3.param1 : value1
Section3.param2 : value2

foreach my $secname (sort @sections) 
{
...

    }
}

section : Section1
Section1.param1 : value1
...
section : Section3
Section3.param1 : value1
Section3.param2 : value2