Select Code to Download

#!/usr/bin/perl
#
...
print Dumper(\%main::);

Test2::myprint();

Before copying symbol table:
$VAR1 = {
...
          '<none>::' => *{'::<none>::'}
        };
myprint says: 50

#!/usr/bin/perl
use strict;
...
}

new
old
...
My::Other::Name:
extra3: *My::Other::Name::extra3
foo: *New::MyModule::foo