[root@gili /tmp]# perl safe.pl /tmp/safe2.pl
DEBUG - before rdo-
root     31983  0.0  1.6  3504 2068 pts/0    S    06:26   0:00 perl safe.pl /tmp/safe2.pl
----------------------------------------

DEBUG - loading module momo-
test
DEBUG - after rdo-
Printing %SPACE::
$VAR1 = {
          'INC' => *SPACE::INC,
          '_' => *::_,
          'a' => *SPACE::a,
          '_</tmp/safe2.pl' => *{'SPACE::_</tmp/safe2.pl'},
          '__ANON__' => *SPACE::__ANON__,
          'test' => *SPACE::test,
          'momo::' => *{'SPACE::momo::'},
          '_<momo.pm' => *{'SPACE::_<momo.pm'},
          'BEGIN' => *SPACE::BEGIN,
          'main::' => *{'SPACE::main::'}
        };
Printing %SPACE::INC
$VAR1 = {
          'momo.pm' => 'momo.pm',
          '/tmp/safe2.pl' => '/tmp/safe2.pl'
        };

Output from space_packages
Packages: momo:: main::
  INC: /tmp/safe2.pl momo.pm

Output from packages
Packages: SPACE:: Opcode:: DB:: Data:: DynaLoader:: Exporter:: warnings:: Symbol:: strict:: XSLoader:: attributes:: UNIVERSAL:: overload:: <none>:: Safe:: subs:: IO:: Carp:: CORE:: main::
  INC: Carp.pm Data/Dumper.pm Exporter.pm Exporter/Heavy.pm Opcode.pm Safe.pm Symbol.pm XSLoader.pm overload.pm strict.pm subs.pm warnings.pm warnings/register.pm

Output from symbols2
Symbols in SPACE::
  BEGIN (SPACE::BEGIN): 
  INC (SPACE::INC): HASH=HASH(0x81945d8) 
  _ (SPACE::_): SCALAR='_' ARRAY=ARRAY(0x819e1c8) 
  __ANON__ (SPACE::__ANON__): 
  a (SPACE::a): 
  test (SPACE::test): CODE=CODE(0x819b320) 
root     31983 13.0  2.4  4500 3068 pts/0    S    06:26   0:00 perl safe.pl /tmp/safe2.pl
----------------------------------------

DEBUG - after clearing namespace-
Printing %SPACE::
$VAR1 = {};
Printing %SPACE::INC
$VAR1 = {};

Output from space_packages
Packages: 
  INC: 

Output from packages
Packages: Opcode:: DB:: Data:: DynaLoader:: Exporter:: warnings:: Symbol:: strict:: XSLoader:: attributes:: UNIVERSAL:: overload:: <none>:: Safe:: subs:: IO:: Carp:: CORE:: main::
  INC: Carp.pm Data/Dumper.pm Exporter.pm Exporter/Heavy.pm Opcode.pm Safe.pm Symbol.pm XSLoader.pm overload.pm strict.pm subs.pm warnings.pm warnings/register.pm

Output from symbols2
Symbols in SPACE::
root     31983  0.8  2.4  4500 3068 pts/0    S    06:26   0:00 perl safe.pl /tmp/safe2.pl
----------------------------------------