*p2::func = $func;

package p2;

our $x = 100;
func();