$ perl -e'$ENV{FOO} = q(bar);print `cat /proc/self/environ`,$/'