$ perl -e'$ENV{host}="localhost"; system $ARGV[0]' 'echo $host'
localhost