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

use Config::Simple;

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

my $led_cfg = "$confdir/$conffile";

'Config::Simple'->import_from($led_cfg, \ my %Config);
my $ap_id = $Config{ $pillar . '_lcd.AppID' };
print "$ap_id";

##</code><code>##

[dev_lcd]
AppID=APTC_RDFG
User=AB12345

[tst_lcd]
AppID=APTC_RERF
User=AB45678

[pro_lcd]
AppID=APTC_RDHF
User=AB98765

##</code><code>##

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

my $pwd = qx{./CA.pl};
print "$pwd\n";

##</code><code>##

CFG_DIR=./cfg ./main.pl

##</code><code>##

APTC_RDFG