Select Code to Download

#!/usr/bin/perl
use warnings;
...
'Config::Simple'->import_from($led_cfg, \ my %Config);
my $ap_id = $Config{ $pillar . '_lcd.AppID' };
print "$ap_id";

[dev_lcd]
AppID=APTC_RDFG
...
[pro_lcd]
AppID=APTC_RDHF
User=AB98765

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

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

CFG_DIR=./cfg ./main.pl

APTC_RDFG