Help for this page

Select Code to Download

Select or download this

$ENV{FOO} = 1;

...
$ENV{FOO} = 2;

print $ref->{FOO}, "\n";   # prints 2.