Select Code to Download

my  $FOO;
print join("\n",sort(keys(%main::)) );

my  $main::FOO;
print join("\n",sort(keys(%main::)) );

local  $FOO;
print join("\n",sort(keys(%main::)) );