use warnings;
use Config::Simple;

my $confdir = $ENV{CFG_DIR};
$conffile = 'LED.cfg';

my $LEDcfg = "$confdir/$conffile";
print `cat $LEDcfg\n`;

Config::Simple->import_from('LED.cfg', \%Config);
$LEDcfg = new Config::Simple('LED.cfg');
$ApID = $LEDcfg->param('ApID');
%Config = $LEDcfg->vars();
print "$ApID\n";