or download this
## Poor example: Cwd pulled in with use so %Cwd:: is fully populated
$ perl -E 'say qq{Cwd stash keys: }, scalar %Cwd::; use Cwd; say qq{Cw
+d stash keys after use: }, scalar %Cwd::; say qq{Config stash keys: }
+, scalar %Config::;require "Config.pm"; say qq{Config stash keys afte
+r requiire: }, scalar %Config::;'
...
Cwd stash keys after use: 39
Config stash keys: 1
Config stash keys after requiire: 20