package Debug;
sub ::dp { print "Moo!\n"; }

package test;
::dp;

##</code><code>##

$ perl a.pl
Moo!

##</code><code>##

package main;
sub _ { print "Foo!\n" }
*% = sub { print "Bar!\n" };

package test;
_();
&%();

##</code><code>##

$ perl a.pl
Foo!
Bar!