$ echo $A;perl -wE'say $ENV{A};$ENV{A}=2;say$ENV{A}';echo
$A
1
1
2
1
$ perl -wE'say $ENV{A};qx{echo \$A};$ENV{A}="B";say $ENV{A
};qx{echo \$A};'
1
B