capturing system perl in variable to set env