I will explain the usage of configuration file from CA.pl.

LED.cfg
dev_lcd
AppID=APTC_RDFG
User=AB12345

tst_lcd
AppID=APTC_RERF
User=AB45678

pro_lcd
AppID=APTC_RDHF
User=AB98765
[download]

my AppID = $LED.cfg->param( $pillar . "_lcd.AppID);

AppID=AppID configured in cyberark
LED.cfg = configuration file where all server AppID and user names are
+ stored
param = calling the AppID from LED.cfg using _lcd syntax and assign to
+ $AppID
pillar = searches the server if belongs to development or test or prod
+uction. if $pillar is development, dev_lcd is connected and AppID und
+er dev_lcd is assigned to $AppID.
[download]

Once CA.pl fetches the correct AppID and User based on pillar(dev/tst/prod servers), it will connect to cyberark and provides the password. I am getting the password successfully if i run the script manually. But output of this CA.pl is used to connect to database of another perl main script. I tried many methods to retrieve the password but i failed with undef error as mentioned.

my $pwd = qx($path/CA.pl);
my $pwd = qx("$path/CA.pl");
my $pwd = system($path/CA.pl);
my $pwd = system('$path/CA.pl');
my $pwd = system('usr/local/bin/perl -w $path/CA.pl');
[download]

I created the following structure of files and directories:

./CA.pl

#!/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";
[download]

./cfg/LED.cfg

[dev_lcd]
AppID=APTC_RDFG
User=AB12345

[tst_lcd]
AppID=APTC_RERF
User=AB45678

[pro_lcd]
AppID=APTC_RDHF
User=AB98765
[download]

./main.pl

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

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

Now, when I run

CFG_DIR=./cfg ./main.pl
[download]

I'm getting the expected output:

APTC_RDFG
[download]

How is your scenario different?

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Thanks for your response. Now i able to narrow down the issue. I am getting desired output if i execute the script under /amex/lcd directory. If i copy the script to /amex/log/ directory and execute the script, i am getting below error.

$pwd
/amex/lcd
$./CA.pl
<password>  ## printing password as expected
$cd /amex/log
$./CA.pl    ## not printing the password from different location other
+ than /amex/lcd
Can't call method "param" on an undefined value at
        /ontw/etc/lcd/PWCCAauth_succ.pl line 108 (#1)
    (F) You used the syntax of a method call, but the slot filled by t
+he
    object reference or package name contains an undefined value.  Som
+ething
    like this will reproduce the error:

 

        $BADREF = undef;
        process $BADREF 1,2,3;
        $BADREF->process(1,2,3);
[download]

Am i missing something that you can help me with ? If i sort out this issue of getting the password executed from all directory other than /amex/lcd, then i will able to get main.pl executed without issue. Thanks in advance.