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

##</code><code>##

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

##</code><code>##

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