$ perl -e ' for ("", "APXD_IERF") { $ENV{ApID} = $_; my $pwd = `./pm_11133472.sh`; print "$pwd\n"; } ' pw pwAPXD_IERF