$os_says .= `$_`; eval($os_says); #### eval { $os_says .= `$_` }; #### setenv ADP_INPUT_HOME /disk4/vendor/adp/ echo "Looking for files in $ADP_INPUT_HOME" #### -- @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/; map{y/X_/\n /;print}map{pop@$_}@/for@/
## eval { $os_says .= `$_` }; ##
## setenv ADP_INPUT_HOME /disk4/vendor/adp/ echo "Looking for files in $ADP_INPUT_HOME" ##
## -- @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/; map{y/X_/\n /;print}map{pop@$_}@/for@/