Select Code to Download

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

package test;
::dp;

$ perl a.pl
Moo!

package main;
sub _ { print "Foo!\n" }
...
package test;
_();
&%();

$ perl a.pl
Foo!
Bar!