#!perl -w

package Foo;

*{^_greet} = sub {
        print "hello, ";
};

*^E = sub {
        print "world\n";
};

package Bar;

&{^_greet}();
&^E();